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Editorial. 



ERASE UNA VEZ.. 



Erase una vez una editorial que 
editaba unas revistas de informática. 
Entre las revistas de informática que 
editaba dicha editorial había una de 
ellas que se dedicaba a una norma 
estándar, que no era otra que el 
MSX. 

Los privilegiados cerebros que 
formaban el núcleo de la redacción 
de dicha revista, se dijeron un día: 
"Habrá que dar a nuestros lectores 
algo más que colorines y teoría en 
nuestra revista. Como cuidamos tan 
bien a nuestro público y nuestra 
publicación es tan barata, vamos a 
darles algo realmente útil para que 
todavía nos quieran más." 

Y buscando, buscando llegaron a la 
siguiente conclusión: 

"Para poder dar a nuestros 
queridos lectores información de 
primera mano, y poderles explicar 
nuestras experiencias sobre casos 
concretos hemos de tener un 
ordenador en nuestra redacción." 

Y una vez dicho esto, se fueron 
contentos y felices, puesto que 
habían dado con la solución a todos 
sus problemas, pero la alegría de 
haber dado con la solución les hizo 
olvidarse de comprar el ordenador. 
Fue una lástima que esa no fuera la 
única editorial que se dedicaba a ese 
tema, porque cuando comenzaron a 
publicar experiencias prácticas, se 
dieron cuenta que otra editorial 
llevaba ya tres años haciendo 
precisamente eso. 

Esperamos que os haya gustado este 
cuento, ya que no es otra cosa que 
eso. Pero como todos los cuentos 
tiene su parte de verdad además de 
una moraleja. Pero esta se la 
dejaremos a nuestros lectores para 
que cada cual saque la suya. Feliz 
verano. 
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Tengo un programa-car- 
tucho ROM Sony «GRA- 
PHIC MASTER» que des- 
pués de dibujar en pantalla 
no tengo ningún problema 
para grabar los dibujos, tan- 
to en disco como en cinta. 

El problema surge cuan- 
do intento acceder a los di- 
bujos desde el BASIC. Con 
los grabados en disco es fá- 
cil: BLOAD "nombre", S; 
pero no así con los grabados 
en cinta. ¿Cómo puedo ha- 
cer lo mismo con los dibujos 
en cinta? 

Juan Paloma Tutusaus 
BARCELONA 

El DISC-BASIC incorpora 
un par de instrucciones para 
leer y grabar pantallas gráfi- 
cas del disco (BSAVE,S y 
BLOAD,S). Sin embargo no 
existen estas instrucciones en 
el BASIC para cinta. 

El programa que nos co- 
mentas graba las pantallas en 
la cinta mediante una rutina 
especial que incorpora. Para 
poder recuperar dichas panta- 
llas desde el BASIC haría fal- 
ta estudiar cómo lo realiza el 
propio programa (desensam- 
blándolo y estudiando su lis- 
tado en C.M.) y realizar una 
rutina en ensamblador que 
permita imitar este proceso 
desde el BASIC 

Nada fácil, como ves, a no 
ser que tengas unos mínimos 
conocimientos de lenguaje 
ensamblador y de la forma de 
leer y grabar en cinta que uti- 
lizan los ordenadores MSX. 

Desgraciadamente no po- 
demos ayudarte a este respec- 
to, ya que no disponemos del 
programa que nos comentas 
en Ja redacción para poderlo 
estudiar a fondo. 



MSX-2 Y COMPILADOR 
BASIC 

¿Se podría hacer un pro- 
grama en BASIC MSX-2, 
pasarlo a código máquina 
con un compilador MSX y 
luego ese programa hacerlo 
funcionar en un MSX-1? 

¿Hay software MSX-2 en 
cinta? ¿Dónde puedo en- 
contrarlo? 

Francisco Montes Alcaraz 
Cartagena (Murcia) 

Lo que propones en tu pri- 
mera pregunta sería posible 
siempre que se cumpliesen 
varias condiciones. En pri- 
mer lugar el programa en BA- 
SIC MSX-2 no podría uti- 
lizar ninguna de las nuevas 
prestaciones de los MSX-2, 
ya que éstas no existen en los 
MSX-1. Además, el compila- 
dor de BASIC debería ser 
compatible con todos los 
MSX, tanto de primera como 
de segunda generación. 

Respecto a tu segunda pre- 
gunta, efectivamente existe 
software para MSX-2 en cin- 
ta, aunque poco por el mo- 
mento. Te citamos, por ejem- 
plo, el programa "The Chess 
Game" distribuido por Phi- 
lips para MSX-2 en formato 
cinta. 



ACOSO EN NICARAGUA 

En el programa ACOSO 
EN NICARAGUA del nú- 
mero 12 de vuestra revista 
me falta la instrucción 1690 



y me da error en el test de lis- 
tado en la línea 1680. 

Da la impresión de que 
falta una línea y la 1680 se ha 
montado con el final de la 
1690. 

Carlos Media Pont 
Monzón (Huesca) 

En primer lugar hemos de 
decirte que tienes razón y que 
el programa aparecido en el 
número 12 de nuestra revista 
tiene el fallo de montaje que 
nos comentas. 

Sin embargo, en cuanto 
fue detectado el error, publi- 
camos la corrección. Te in- 
cluimos el listado correcto de 
las dos líneas problemáticas: 
1680 PUTSPRITEO, 

(250,209), 15, 13 
1690 IF E$ = " " THEN FOR 

T=0TO50:NEXT 

T. GOTO 1650 ELSE 

RETURN 



MSXVERSUSSPECTRUM 

Quisiera saber si actual- 
mente se comercializa algún 
tipo de cartucho para pasar 
de MSX a MSX-2. También 
me gustaría que aconsejaran 
a un amigo que no se decide 
sobre si comprar un CA- 
NON V-20 o un SPEC- 
TRUM. 

¿Dónde puedo hacer que 
reparen un ORIC-ATMOS? 

Federico Martí Pons 
Mercadal (Menorca) 

Por el momento no se co- 
mercializa este cartucho, y 
nos tememos mucho que tar- 
dará bastante en aparecer. 
Las diferencias entre ambos 
sistemas son lo suficiente- 
mente notables como para 
hacer de este cartucho una 
"tarea difícil". No descarta- 
mos, sin embargo, la posibili- 
dad de que más adelante lle- 
gue a nuestros mercados al- 
gún tipo de ampliación que 
incluya los nuevos elementos 
incorporados a los MSX-2 
para que los usuarios de 
MSX-1 puedan disfrutar de 
las ventajas de los ordenado- 
res de la segunda generación. 

Respecto a que aconseja- 
mos a tu amigo sobre la deci- 
sión entre un Spectrum o un 
MSX, no hay duda posible. 
Los MSX tienen un BASIC 
muchísimo más potente que 





el de Spectrum, los gráficos 
de MSX son mucho mejores 
que los de Spectrum, incluso 
programando en CÍA. se no- 
tan las ventajas que incorpo- 
ra la ROM de los MSX frente 
a la del Spectrum, mucho más 
pobre en rutinas interesan- 
tes. 

En general, y en vista de 
las características técnicas de 
ambos aparatos, los Spectrum 
"no tienen nada que hacer" 
frente a los MSX. La única 
voz levantada en favor de 
Spectrum es el mayor número 
de programas que existen en 
el mercado para este ordena- 
dor, debido a su larga estan- 
cia en el mercado; pero cada 
día son más los títulos que se 
incorporan al mercado MSX. 

Sin duda creemos que la 
elección del CANON V-20 es 
la mejor solución para tu 
amigo debido a la alta calidad 
de los ordenadores del están- 
dar frente a sus. competido- 
res. 

Respecto a tu última pre- 
gunta, hemos de decirte que, 
pese a conocer bien el ordena- 
dor del que nos hablas, no co- 
nocemos quien es actualmen- 
te el importador o distribui- 
dor en España del mismo. Di- 
rígete ai comercio en que 
compraste el ordenador, ya 
que son ellos los que deben 
responsabilizarse de las repa- 
raciones de los aparatos que 
venden. 



MSX-2 Y MSX-1 



Ante la superioridad de 
los MSX-2 sobre nuestros 
MSX-1, y si tenemos en 
cuenta que en cuestiones de 
memoria, resolución de 
pantalla y demás son muy 
superiores, ¿no es posible 
que con el tiempo los fabri- 
cantes de este estándar se 
dedicaran únicamente a los 



de la segunda generación 
dejándonos de lado? 

¿Qué he de hacer para 
que me publiquéis un pro- 
grama sin participar en 
vuestro concurso? 

José F. Doncel 
BURGOS 

Resulta evidente la supe- 
rioridad de los MSX-2 frente 
a los MSX de primera genera- 
ción; pero los fabricantes de 
ordenadores MSX han de- 
mostrado una mayor serie- 
dad que otros fabricantes de 
ordenadores en este aspecto. 
Los MSX de primera genera- 
ción están teniendo ahora 
tanto o más apoyo que en el 
momento de salir al mercado. 

Existe, claro está, un gran 
interés por los MSX-2; pero 
se intenta que esto no afecte a 
los usuarios de MSX-1. Es 
ahora cuando empiezan a lle- 
gar programas en gran canti- 
dad para los MSX de primera 
generación así que no tenéis 
de qué quejaros. 

En un futuro, nadie sabe lo 
que puede pasar; pero es de 
esperar que los fabricantes de 
MSX continúen con su políti- 
ca de servicio a sus usuarios. 

Respecto a enviarnos pro- 
gramas sin participar en el 
concurso, sólo tienes que in- 
dicárnoslo en la carta que nos 
envíes junto al programa. 
Pero te avisamos, así como a 
otros lectores, que en este nú- 
mero incluimos ya las bases 
de un nuevo concurso abierto 
a todos nuestros lectores. 



CARGA DE DATOS DEL 
CASSETTE 



En el número 8 de su for- 
midable revista aparece un 
programa llamado "Agen- 
da". He verificado línea por 
línea el programa y está 
bien. He introducido 42 fi- 
chas en la agenda, sin nin- 
gún problema, pero cuando 
cargo de la cinta a memoria 
e intento leer la ficha 16 (por 
ejemplo), llega un momento 
en que se corta la lectura 
para al cabo de un rato se- 
guir leyendo, repitiéndose 
este proceso en numerosas 
ocasiones. 

¿Hay alguna línea mal? 

: 




Francisco Sánchez 
Esplugues 
(BARCELONA) 

El efe cío que comentas es 
perfectamente normal cuan- 
do los datos están grabados 
en formato ASCII, cosa que 
ocurre en este programa de 
AGENDA. 

Existen dos formatos dife- 
rentes para grabar, por ejem- 
plo, un programa en BASIC 



La primera forma es grabarlo 
como bloque de bytes. En 
este formato se graban los 
programas que grabamos con 
CS A VE o con BSA VE. . 

La segunda forma consiste 
en grabar el programa o con- 
junto de datos en ASCII. De 
esta forma para cada carácter 
se graba un código específico. 
En este segundo modo de gra- 
bación, utilizado por los fi- 
cheros en cinta o bien por los 
programas grabados con 
SA VE, el conjunto de datos 
se divide en bloques de 128 o 
256 bytes, que son grabados 
como grupos separados. Esta 
es la razón de que la cinta se 
pare cada "x" fichas. 

No se trata, por tanto, de 
ningún error en el programa 
sino de algo absolutamente 
normal en los ficheros de da- 
tos grabados sobre cinta y la 
única solución posible consis- 
te en utilizar una unidad de 
disco para los ficheros, ya que 
es el medio idóneo para ellos. 



CARATULAS DE JUEGOS 



¿Qué rutinas habría que 
emplear para que cuando 
empiece a cargar una cinta 
con un programa hecho por 
mí salga la presentación 
mientras se carga el resto del 
programa, como ocurre en 
vuestras cassettes? 

Alvaro Pérez Magaríño 
BURGOS 

Hacer que aparezca una ca- 
rátula de presentación mien- 
tras se { 
algo muy 
programadores de videojue 
gos. Prácticamente la totali- 
dad de los juegos de calidad 
incorporan una pantalla de 
presentación durante la espe- 
ra a la carga del videojuego. 

Hacerlo es bastante senci- 
llo. Debes realizar para ello 
dos programas. En el primero 
debes realizar el dibujo de 
presentación. Cuando se ter- 
mine el dibujo debes añadir 
una instrucción que cargue el 
segundo programa (CLOAD, 
RUN "CAS:" o BLOAD 



' carga el programa es 
'uy extendido entre los 




"CAS:",R). El segundo pro- 
grama es el juego en sí, que se 
cargará mientras observas el 
dibujo realizado por el pri- 
mer programa. 

Esperamos ver pronto las 
carátulas de tus juegos, así 
como las de nuestros otros 
lectores. 




GRABAR PROGRAMAS EN 
ENSAMBLADOR MSX 



¿Los programas en C.M. 
se almacenan correlativa- 
mente de forma que sabien- 
do su longitud se puedan 
calcular sus direcciones de 
inicio y final? 

¿Cómo se podría tener 
idea de los direccionamien- 
tos de un ordenador, para 
no meter los programas den- 
tro de la ROM, por ejem- 
plo? 

¿Podrían almacenarse los 
programas o parte de ellos 
fuera de la zona de usuario? 

¿Cómo podría hacer que, 
cargando un juego con 
LOAD "XXXX\R en vez 
de comenzar al principio, 
comenzara en una determi- 
nada línea? 

Manuel Renedo Gil 
Sta. Cruz de Tenerife 



Los programas en C.M. se 
almacenan normalmente de 
forma correlativa en memo- 
ria (a no ser que los divida- 
mos en trozos), de modo que 
conociendo sus direcciones 
puedes calcular fácilmente su 
longitud, o calcular su direc- 
áón final conociendo su lon- 
gitud y la dirección de inicio. 

¿Cómo se podrían saber 
las direcciones utilizables de 
los MSX? Preguntándonos- 
las a nosotros, por ejemplo. 
La ROM que contiene al BA- 
SIC MSX se halla entre las di- 
recciones 0 y &H7FFF (0 y 
32767 en decimal). 

Más adelante, a partir de la 
posición &HF37F se encuen- 
tra la zona de variables del 
sistema y de ganchos de la 
ROM, en la que es preferible 
no introducirse si no se sabe 
bien lo que se está haciendo. 

El resto de la memoria 
RAM es perfectamente utili- 
zable en C.M., a no ser que 
dispongas de unidad de disco, 
en cuyo caso el límite supe- 
rior se ve disminuido hasta la 
dirección &HD400 aproxi- 
madamente, en donde se ini- 



cia la zona de trabajo del dis- 
co. 

Es posible almacenar pro- 
gramas fuera de la zona de 
memoria de usuario. Para 
ello deberás trabajar con los 
SLOTS de RAM, siempre 
que tu ordenador cuente con 
más de 48 Kb de memoria 
RAM. Dedicaremos en breve 
un artículo sobre el funciona- 
miento de los slots; pero si 
tienes prisa te remitimos a la 
sección CALL de nuestra re- 
vista, que ya ha tratado en al- 
guna ocasión este tema. 

Por último, no existe nin- 
guna forma, al menos senci- 
lla, de hacer que un programa 
comience a funcionar a partir 
de una línea determinada con 
la instrucción LOAD 
"XXXX" ,R. Te recomenda- 
mos, en todo caso, que inclu- 
yas como primera línea un 
GOTO a la línea en que de- 
sees que comience la ejecu- 
ción del programa. 



DE TODO UN POCO 



Quisiera preguntaros si es 
posible que la casa SERMA 
me envíe alguno de sus pro- 
gramas contra reembolso, ya 
que por cheque me es impo- 
sible. 

¿Cómo es posible grabar 
el PERSONAL DATA 
BANK de mi Hit-BIT 75P 
en cinta? 

¿Continúa SONY fabri- 
cando el cassette de ordena- 
dor SDC-500? 

¿Es posible que el cursor 
parpadee continuamente? 

Carlos Casares 
Las Arenas (VIZCAYA) 

A tu primera pregunta he- 
mos de responderte que sí. 
SERMA realiza ventas de sus 



programas por medio del co- 
rreo, contra reembolso o me- 
diante talón bancario. Para 
poder hacer uso de esta posi- 
bilidad debes escribir a; 
SERMA 

C/. Cardenal Belluga, 2 1 . 
28028 MADRID 
Telfs.: 256 21 01/02 

Aunque no disponemos en 
estos momentos de un HB 
75P creemos recordar que el 
PERSONAL DATA BANK- 
dispone de una opción que 
permite la grabación en cinta 
de los datos almacenados en 
su memoria. Te recomenda- 
mos que repases el manual 
del programa para una mayor 
información sobre esta op- 
ción y su funcionamiento. 

Respecto al cassette de or- 
denador SDC-500 de Sony, 
no tenemos ninguna noticia 
de que se haya dejado de fa- 
bricar. Puedes dirigirte para 
conseguirlo a cualquier dis- 
tribuidor de Sony, o bien di- 
rectamente a: 
SONY ESPAÑA 
C/. Sabino Arana, 42-44. 
08028 Barcelona 
Tel.: 330 65 51. 

Por último, no resulta ex- 
cesivamente difícil realizar 
un programa que, mediante 
interrupciones, haga parpa- 
dear el cursor deforma conti- 
nuada. Sin embargo para ello 
prensarás de unos mínimos 
conocimientos de programa- 
' ción en ensamblador. En de- 
finitiva se trata de un progra- 
ma no excesivamente compli- 
cado al que no vemos dema- 
siada utilidad. 

Para realizar este progra- 
ma deberías parchear (siem- 
pre desde lenguaje ensambla- 
dor) la dirección de control 
de interrupciones y realizar 
desde allí un salto a tu pro- 
grama que encendiera y apa- 
gara el cursor por medio de 
sendas llamadas a la ROM. 




TAMAÑO DE LAS LETRAS 
Y PIRATERIA 



¿Se puede disminuir el ta- 
maño de las letras (texto) en 
SCREEN2?¿Cómo? 

Tengo un DRAGON 
MSX-64 y tengo varios pro- 
gramas de las direcciones 
34816, 51264 y 51200. Si el 
programa es de un bloque se 
me ejecuta perfectamente; 
pero si es de dos bloques a la 
ñora de salir se me bloquea 
el ordenador. 

¿Qué podría hacer para 
que los programas de dos 
bloques se ejecutaran? 

¿Puedo hacer que dos 
bloques queden como uno 
sólo al grabarlos? 

Tico Moreno 
Monteada 
(BARCELONA) 



Cambiar el tamaño de las 
letras en SCREEN 2 no es fá- 
cil. Los caracteres que apare- 
cen al hacer PRINT con pan- 
tallas de gráficos (2 ó 3) no 
permanecen en la VRAM, 
sino en la ROM del BASIC, 
por lo que no son modifica- 
bles (ai menos de un modo 
sencillo). 

Sin embargo existe una so- 
lución muy asequible a tu 
problema, consistente en di- 
bujar las letras. Es decir, por 
medio del comando DRAW, 
o de líneas consecutivas dibu- 
jar cada uno de los caracteres. 
Si conoces algo de lenguaje 
máquina te será fácil darle ve- 
locidad a este proceso de di- 
bujo. 

Respecto a los programas 
de dos bloques que no te car- 
gan hemos de decirte que, por 
las direcciones que nos co- 
mentas, deducimos que se 
trata de copias piratas y que, 
debido al mal hacer de la gran 
mayoría de piratas de nuestro 
país, no cargan en muchos or- 
denadores. No busques solu- 
ción en tu aparato, sino en el 
pirata que realizó la copia del 
programa. No podemos dar- 
te, por lo tanto, solución a tu 
problema. 



¡¡COMPLETA TU HEMEROTECA DE PROGRAMAS!! 
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Tablón de anuncios 
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Vendo ordenador SVI-328, 
Expander SVI-605 con 2 uni- 
dades de disco de 5 1/4(252 Kb 
formateadas por disco), moni- 
tor FONTEC (fósforo verde), 
S.O. CP/M-80, disco EXTEND 
BAS+ MBASIC + Compilador 
+ COBOL/80 + Compilador 
+ WORDSTAR (en inglés y 
castellano). Libros de instruc- 
ciones y varios libros. Preferi- 
ble venta en BARCELONA o 
CATALUÑA. No vendo por 
partes. Precio total: 125.000 
ptas (negociables). José Ra- 
món. (93) 568 45 41. A partir 
de las 10 de la noche. CP.l. 
Cambio diez magníficos pro- 
gramas en cassette (entre ellos 
Camelot Warriors) por el car- 
tucho CHAMP E/D de Micro 
Byte "original" o por cualquier 
otro de juegos o aplicaciones 
originales. Gonzalo Márquez 
Benít. CA Ntra. Sra. Merced 
s/n. CP. Aljoxaní. CORDOBA. 
CP 1. 

Compro unidad de disco MSX- 
2 de 3,5 pulgadas, barata. La 
marca me da igual. M. Garrido 
Pareja. C/Bib-rambla 22, 1.° 
Telf: (958) 22 28 52. GRANA- 
DA. CP.l. 

Vendo S VI -728 con nueve me- 
ses de vida, cassette DYNA- 
DATA y cartucho BASIC TU- 
TOR por 30.000 ptas. Monitor 
blanco y negro (SONY) por 
15.000 ptas. Ponciano Criado 
Pérez. C/. Santa Cecilia n.° 7, 
5 A. Tlf: 202311. 15690 LA 
CORUÑA. CP.l. 
Vendo juegos originales Oh 
Shit!, Fórmula 1, Ghostbusters 
y Deus ex Machina todo por 
8000 ptas. También por separa- 
do. Alvaro Francio Núñez Fer- 
nández. Plaza de Andalucía n.° 
3, 2.° -6. Marbella. 29600 (Mála- 
ga). CP.l. 

Vendo/Cambio manuales del 
Canon V-20 en inglés por los 
mismos en español o similares. 
También cambio programas 
originales. Angel Peña Sán- 
chez. C/. Obispo B. n.° 95. 
23320 TORREPEROGIL 
(JAEN). Tlf: (953) 776024. 
CP.l. 

Vendo Philips VG-8010 con 
expansión de 64 Kb y 75 pro- 
gramas por 35.000 ptas. Tlf: 27 
56 41. La Coruña. Preguntar 
por José. CP.l. 

Vendo joystick Quick-Shot 
II sin estrenar y 2 juegos como 
son Ghostbusters y Maziacs 
por sólo 2000 ptas. Luis Rodrí- 



guez Ribes. C/. Museros n." 5. 
3,6. Tlf: (964) 23 06 65. 12005 
CASTELLON. CP.l. 
Intercambio juegos MSX. Bus- 
co Yie Are, Kung fu. Llamar de 

16 a 22 horas al Tel.: (938) 67 

17 24 o escribir a: Fernando 
Pérez Pérez C/ San Rafael, 4. 
35018 Las Palmas de Gran Ca- 
naria. CP.l 

Compro programas y juegos en 
cinta para MSX2. También 
compro ensamblador / desen- 
samblador con instrucciones. 
Cambio juegos MSX, poseo 
más de 200. Francisco Montes 
Alcaraz. C/ Cata, 3. Los Dolo- 
res, Cartagena (Murcia) Tel.: 
(968)51 46 82. Horas no labo- 
rables. CP.l. 

Vendo por 1.500 ptas. progra- 
ma original CW-RTTY emi- 
sión / recepción. Francisco R. 
Paya. C/ Reconquista 38 5. 
03800 Alcoy (Alicante). CP.l 
Compro cartucho de amplia- 
ción de 64 K. precio a convenir, 
referencia: Angel Querol. Bar- 
celona. Tel.: (93) 422 38 82. 
CP.l. 

Vendo o Cambio programas de 
MSX2. Poseo Red Lights of 
Amsterdam, Chopper II, Bad- 
max, Laydock, Perry Masón, 
Nemesis etc.. cada uno a 2.000 
pesetas. Antonio Muñoz Ran- 
do. C/ Energía, Bl/M Esc. 1 10 
2. Barcelona 08004. Tel.: 332 
72 34. CP.l. 

Vendo micro-ordenador Ca- 
non V20 1987. 64 K + cables y 
30 juegos. 20.000 ptas. M. Vrig- 
non Michel. 2 rué de L'aulnie- 
re. 85170 Saligny Francia. CP. 
1. 

Poseo libro de Código Máqui- 
na exclusivo para SVI-3 18/328 
y ensamblador / desensambla- 
dor para SVI-3 18/328. Intere- 
sados: Carlos Carbonell. Tel.: 
(91) 717 12 60 (de 15'00 a 

18 00). CP. 1. 

Vendo ordenador MSX Spec- 
travideo 728 de 80 ks, con ga- 
rantía, manuales y cables por 
sólo 22.500 pts. Todo en per- 
fecto estado. Programas y revis- 
tas de regalo. Tell.: (972) 50 96 
57. De 9 a 10 de la noche. CP. 1. 
Doy ocho juegos en cinta a 
cambio de un cartucho de Ko- 
nami. Poseo los mejores de 
Erbe, varios de Konami, Taek- 
wondo, Samantha Foxx, etc. A 
ser posible gente de Madrid. 
Llamar martes y jueves a Rubén 
Fernández Santamaría. C/ Ca- 
marena,824, A. 28047 Madrid. 



Tel.: 717 92 21. CP.l 
Vendo ordenador MSX VG- 
8020 (80K) Philips. Monitor 
BM-7552 de 12 pulgadas y alta 
resolución, cantidad de soft 
(unos 20 juegos y un programa 
de utilidades), revistas, cables, 
manual de instrucciones en cas- 
tellano, libros sobre Basic y Có- 
digo Máquina para MSX. Todo 

f)or 45.000 ptas. ¡Si, si si, has 
eído bien! (además todo tiene 
un año). Augusto Emañes Lee. 
Avda. 311 n.20(Esq.301)Cas- 
telldefels (Barcelona) Tel.: (93) 
665 20 32. CP.l. 
Vendo 6 juegos originales MSX 
cassette como nuevos: Cybe- 
run, Trailblazer, Avenger, The 
Cheist, Futúre Knight y A View 
to kill (James Bond). Por sólo 
5.000 ptas. Contrareembolso. 
Juan Ventura. Tel.: (93) 381 43 
82 Tardes San Adrián de Besos. 
(BCN)CP.l 

Vendo programa Laydock 
(MSX 2) de Sony en disco, a un 
70% menos del precio comer- 
cial. David. Tel.: (954) 63 53 
07. CP.l 

Vendo Ordenador MSX Phi- 
lips VG-8010 de 48K más am- 
pliación de memoria de 64K. 
Cassette ordenador COMPU- 
TONE, manuales de referencia 
y usuario, 20 juegos primeros 
títulos, curso de Basic. Todo 
por sólo 23.000 ptas. Juliancho 
o Alberto. Tel.: (948) 82 43 71 
de 21h. en adelante. CP.l. 
Vendo X'press SV1738 MSX 
(Drive de 720Kb) con discos y 
manuales y monitor de fósforo 
verde K-40. Todo 85.000, sólo 
ordenador 70.000 pesetas. Muy 
poco uso, en garantía, compra- 
dos en febrero '87. Regalo pro- 
gramas. Tel. (974) 820869. 
CP.l. 

Vendo en perfecto estado por 
compra de un MSX-2, Ordena- 
dor Philips VG-8020 80K, te- 
clado profesional, con manual 
Basic y cables de conexión. Re- 
galo con el ordenador los si- 
guientes programas: Knight 
Mare, Soccer, La Pulga, King's 
Valley, Green Béret, Hiper Ra- 
lly, Super Cobra, Yie Ar, Kung 
Fu II. Todo por sólo 18.000 pe- 
setas. CP. 1 

Vendo cartucho SONY de am- 
pliación de memoria HBM-16 
poco usado, con caja original e 
instrucciones por 4.000 pese- 
tas. José Luis Benito Zurdo. C/ 
Segovia, 1. 05005 Avila. Tel.: 
(918) 22 27 63, de 14 a 15,30 



horas. CP.l 

Vendo impresora-plotter 
SONY PRN-C41 con acceso- 
rios alimentador, manuales y 
embalaje de origen. Precio a 
convenir. Llamar al Tel.: (93) 
357 88 22. CP.l. 
Vendo SVI-328, ordenador de 
gestión, apto para el sistema 
CPM2.2 y CPM 3.0 y lenguaje 
Basic, Cobol, Logo. 80Kb, cas- 
sette, 1 joystick, 14 programas 
(juegos y utilidades), manual de 
instrucciones. Todo en perfec- 
to estado por 50.000 pesetas. 
Tel. (9^)372 12 04. CP.l 
Vendo ordenador Spectravi- 
deo SVI-728 MSX 80K. Con 
garantía, más libros y 50 pro- 
gramas comerciales. Todo por 
30.000 pesetas. Intercambio 
programas, poseo más de 200. 
Llamar al tel. (943) 885474 a 
partir de las 18,30. Juan María 
Gorrotxategui. C/ Guipúzcoa, 
16 4.C. 20240 Ordizia (Gui- 
púzcoa). CP. 1 

Vendo ordenador SONY MSX 
HB-75P 64K, grabadora de 
cassettes, cassettes de juegos, 
cartucho de ajedrez y libros 
programación BASIC. Com- 
prado todo hace 4 meses. Ven- 
do por 45.000 pesetas. José Fo- 
rero Martín. (93) 353 59 44 de 
Barcelona. CP.l 
Vendo ordenador MSX Spec- 
travideo 728 de 80 ks, con ca- 
bles, manuales y garantía por 
sólo 21.500 pts. Regalo gran 
cantidad de revistas y progra- 
mas originales. Llamar de 9 a 
10 de la noche al Tel.: (972) 50 
96 57. CP.l 

Vendemos todo tipo de pro- 
gramas: hablador, ensambla- 
dor, cambiador de slots (útil 
para pasar la ROM a la RAM), 
juegos. Hacemos programas. 
Poneos en contacto para catá- 
logo e información. Yellow- 
Soft. C/. Rqcha, 44. 12414 Al- 
gimia de Almonacid. Castellón. 
CP.l. 

Vendo ordenador TOSHIBA 
HX-10, MSX de 80 Kb, com- 

E Netamente nuevo. Con cables, 
ibros, cinta demo, juegos y un 
cartucho «tenis» Konami. 
Todo por 25.000 pesetas. Jorge 
Beltrán. Tel.: (96) 178 39 64. 
Valencia. CP.l. 

Vendo cartucho original del 
«Road Fighter» por 3.000 pese- 
tas y las siguientes cintas origi- 
nales: Damas (Dimensión 
New) Base de Datos y Traduc- 
tor por 1.600 pesetas cada uno. 



también vendo original U- 
Boot por 400 pesetas. Vendo/ 
cambio todo tipo de juegos y 
programas de aplicación en 
cinta y disco de 3,5". Interesa- 
dos contactar con Jordi Arias 
Ruiz. C/. Abad Escarré, 20-22; 
3.°, 1. a Sant Boi 08830 Barcelo- 
na. CP.l. 

Vendo cassette lectora/graba- 
dora para ordenador por 2.500 
pts. Vendo los siguientes juegos 
por 1.500 pts.: Knighmare, 
Goonies, Green Beret, Neme- 
sis, Cosa Nostra, Livinston Su- 
pongo. También los vendo por 
separado. Antonio. Tel.: (93) 
652 16 94. CP.l. 
Vendo programas, juegos y uti- 
lidades MSX, Amstrad, Spec- 
trum y Commodore. También 
tengo un establecimiento auto- 
rizado donde los podrás encon- 
trar. Está en la plaza Bib Ram- 
bla, 80, grandes ofertas por 
traspaso a C/. Ronda, 116. Si 
llamas desde cualquier punto 
de España: Tel.: (958) 22 28 52. 
CP.l. 

Vendo ML10MA de Mitsubis- 
hi (ratón gráfico) a estrenar por 
15.000 pts., 10 juegos origina- 
les por 15.000 pts., o todo junto 
por 25.000. Escribir a Rafael 
Baena Serrano. C/. Avda. Feli- 
pe II, 22, 9-3 Móstoles (Ma- 
drid). CP.l. 

Vendo ordenador Sanyo 64 K 
+ Impresora Philips VW-0030 
Letter Quality + Monitor Phi- 
lips Fósforo naranja (todo poco 
uso) por 75.000 pts. Joan Serra 
Francés. C/. Alguersari, 5, 2.°, 
2. a . Sabadell. Tel.: (93) 725 44 
93. CP.l. 

Vendo ordenador Philips VG 
8010 de 48 Kb, comprado en 
1986, más cartucho de expan- 
sión de 64 Kb, más 25 juegos 
comerciales además de los ma- 
nuales y cables de conexión del 
propio ordenador. Precio a 
convenir. Llamar preferente- 
mente a partir de las 9 de la no- 
che a; Angel Julián Fernández, 
C/. Malo Munilla, 9. Tudela 
(Navarra). Tel.: 82 43 71. CP.l. 
Intercambio conocimientos 
avanzados en programación de 
juegos C.M. o . Basic MSX y 
MSX-2. Exclusivamente últi- 
mas novedades en software. 
Marcos Fajardo Orellana. Par- 
que Mediterráneo, Bloque 15. 
5. izda. Málaga. Tel.: (952) 34 
37 38. CP.l. 

Club «adictos al joystick» hace 
ampliación de socios. Nuestro 
nombre lo dice todo. ¡Apúnta- 
te a nuestro club! Para infor- 
marte llama al Tel.: (948) 23 63 
85. (Preguntar por Juan Luis). 
O escribe a Juan Luis de Pedro. 
Plaza Monasterio de Azuelo, 3. 
CP. 31011 Pamplona. CP.l. 



Intercambio formas de prote- 
ger y desproteger programas, 
ideas, estilos y experiencias. 
Consultas en general. Interesa- 
dos escribir a Pere. C/. Carde- 
nal Tedeschini, 19, 4.° 08027 
Barcelona. CP. 1 . 
Compro ampliación de memo- 
ria 64 K de cualquier marca. 
También compro unidad de 
disco. José Luis Stoduto Gar- 
cía. C/ Manuel Blasco, 8, 5.°-C. 
42004 Soria, CP.l. 
Busco intercambio programas 
GESTION, Compiladores Co- 
bol, Pascal. C, Fortran. En dis- 
co de 3,5. Noches 11 h. Tel.: 
(978)21 48 57.Alex.C/. 26 de 
Mayo, 15, 3.°-C. 24006 León. 
CP.l. 

Intercambio juegos originales 
(son 4) como «Camelot Wa- 
rriors», «Profanation», etc. 
Para contactar, llamar a los 
tels.: (958)28 53 23 Angel, o al 
(958)27 63 95. Kiko. De 6,30 a 
9,00 noche. CP.l. 
Intercambio Hero, Keystone 
Kapers, Nightshade, ¡Oh Shit!, 
Alien-8, Show Jumper, Snark 
Hunter, Jet fighter, Mercena- 
rio, Frog. Hasta 13 por un car- 
tucho de juegos. Javier Villaéci- 
ja Carrillo: C/. Independencia, 
384, Sá., 2. 08026 Barcelona. 
CP.l. 

Poseo 53 cartuchos, urge cam- 
biar por periféricos MSX, tam- 
bién ofrezco dinero: amplia- 
ción 64 K y 16 K; unidad de dis- 
co 3,5"; impresora, joysticks, 
monitor. En caso de no cam- 
biar, vendo los cartuchos a 
2.500. También te puedes ha- 
cer socio a mi mini club: tecleo 
los programas de la revista y los 
envío en cinta. Marcos Deive 
Novo. C/. Marola, 48, 4. a -D. La 
Coruña. Tel.: (981)20 12 51.de 
3 a 4 tarde. CP.l. 
Cambio juegos originales 
«Knightmare», «Goonies» y 
«Green Beret» por Némesís 
(cartucho) y vendo juegos ori- 
ginales de Konami: Circus 
Charlie, Yie Air, King Fu, At- 
hletic Land, Hyper Sports 1. 
Precio a convenir. A.Y.K. Tel.: 
212 72 03 a partir de las 17 ho- 
ras. CP.l. 

Cambio Hyper Sports III en 
cartucho por Super Cobra o 
Hyper Raíly en cartucho. Ale- 
jandro. Tlf.: (91) 315 72 00 a 
partir de las 17 h. CP.2. 
Vendo ordenador Philips 8020 
de 80 Kb y magnetófono Phi- 
lips. Precio a convenir. Alfonso 
Ramos. C/ Altozano 3. Villa- 
franca de los Barros. BADA- 
JOZ. Tlf.: (924) 52 07 67. CP.2. 
Compro ampliación de 64K o 
de 80K en cartucho para MSX. 
Manuel J. Bailón. C/ Sagrado 
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o cambio por los jue- 
ght Lore, Gunfright, 
— iight Shade, Jack the Nipper, 
Alien 8, Willy II, bounder, Val- 
kyr y Show Jumper, todos origi- 
nales por un cartucho de am- 
pliación de memoria SONY de 
64 Kb. Ramón Ribalta. C/ F¡- 
gueroles n.° 5, 1.°. 12006 CAS- 
TELLON. CP.2. 
Cambio 13 juegos como RI- 
VER RIDE, KAGE, etc. y 27 
revistas por uno de los siguien- 
tes: GREEN BERET, KONA- 
MI, HYPER RALLY, KONA 
MIS SOCCER, YIE AR 
KUNG FU 2, KARATE, BAS- 
KET. Pablo López Parrón. C/ 
Peñalara 24 6.° A. 28760 Tres 
Cantos. MADRID. Tlf.: (91) 
803 13 09. CP.2. 
Vendo ordenador Sony MSX 
en condiciones de estreno. In- 
teresados indicar oferta, siendo 
el coste del aparato de 40.000 
Ptas. Sr. Pedro García Espasa. 
C/Cienfuegos 13, 2." 2. ü . 08027 
BARCELONA. CP.2. 
Vendo Spectravídeo SVI-328, 
lectograbadora SVI-904, 
QuickShott II, 3 cintas de jue- 
gos y otra de introd. al BASIC, 
manuales en inglés y español y 
un libro de programación avan- 
zada por sólo 35.000 Ptas. lesús 
Corrales. Tlf.: 467 13 84. Éran- 
dio. BISKAIA. CP.2. 
SADA CLUB-MSX, primer 
Concurso Nacional de Infor- 
mática MSX. Pidan informa- 
ción sin compromiso. Santos 
Arias Llórente. C/ Peña Larzón 
n." 5, 5AD. 24008 LEON. 
CP.2. 

Vendo ordenador MSX SVI- 
728 de 80 Kb de RAM, unidad 
de disco doble cara SVI-707, 
monitor color Philips y cassette 
especial para ordenador SA- 
NYO DR-303. Tlf: 256 05 49. 
Llamar de 2 1 -22 1 1. Jaime San- 
cho. BARCELONA. CP.2. 
Vendo cassette recorder espe- 
cial para ordenador, modelo 
PHILIPS D-6020, por 5500 
ptas. Está valorado en 1 1000 y 
tiene un mes de uso. Jacobo. 
Tlf: (965) 222538 a partir de las 
7 de la tarde. CP.2. 
Vendo Philips VG-8010 MSX 
con muy poco uso. Se incluyen 
todos los cables, embalaje ori- 
ginal, dos manuales de BASIC 
y algunos juegos. Precio a con- 
venir. Jaime Rodríguez Pérez. 
C/* Los Formidables 18, 2." 
Drcha. Reinosa (Cantabria). 
CP. 39200. Tfl: (942) 752845. 
CP.2. 

Compro ordenador, unidad de 
disco, impresora, joystick, etc. 
Armando. Apartado 274. Tala- 
vera 45600. (TOLEDO) CP.2. 
Vendo SVI-318 y data cassette 
SVI-904 



les en inglés por 15000 ptas 
Antonio Llena. C/. Diagonal 
W5, Barcelona. Tlf: 257 89 32. 
CP.2. 

Compro ampliación de memo 
lia, preferible de 64Kb, para 
1ÍB-55P. Paco. Tlf: 6Í8 \S 67 
Móstoles MADRID. CP.2. 
Vendo unidad de cassette SVI 
767 de Spectravídeo con un 
mes de funcionamiento. Precio 
a convenir. luán Manuel Lo 
pez. C7. Estadella. 90, 8." 2/ 
4 .'. Buen Pastor. BARCELO 
NA 08030. CP.2. 
Vendo PHILIPS MSX VG 
80 10 casi sin usar, con la garan 
tía, manual y todos sus acceso 
ríos, En perfecto estado v por 
sólo 20000 ptas. (negociables) 
Juan Antonio Lafuente. Tlf 
(975) 370152. CP.2. 
Contacto con usuarios ik 
MSX-2 y MSX- 1 con unidad de 
disco pan intercambiar todo 
tipo de información, trucos 
ideas, etc. M.E. Martínez. C 
Alfonso I. 28. 50003 ZARA 
GOZA. CP.2. 

Contacto Sácale partido a tu 
MSX formando tu propia peña 
de lotería primitiva. Llama \ u 
informaré. Programa de reduc 
ción de combinaciones según la 
estadística. Desde 7 hasta 49 
números. Miguel Angel. Til 
96-3651052 de 5 a 8 tarde. Va 
lencia. CP.2. 

Compro cartuchos ROM para 
MSX-2, como GOLF, TEN 
NIS, FUTBOL, PING 
PONG. CHESS. MAP y otros 
por el estilo. Lázaro de Soto 
Apartado 300. 21080 HUEL 
VA. CP.2. 

Vendo ordenador Spectravi 
deo SVI -738 con unidad dedis 
CO 3.5" incorporada. Incluvo 
discos CP/M y MS-DOS y un 
disco con programas MSX va- 
lorados en 48000 ptas. instruc- 
ciones y manual de manejo en 
castellano por 70.000 ptas foi 
di. Tlf: (93) 6544822. Fecha de 
compra del equipo, enero de 
1986. CP.2. 

Vendo procesador de textos en 
cartucho "HOMEWRITER" 
de Sony por 4000 ptas. M. Gó 
mez Rodríguez. C/. Pedro An 
tonio de Alarcón 62, 1A. 
CP. 18002. Tlf: (958) 280376 
GRANADA. CP.2. 

Vendo 8 juegos de Konami. 
Poseo, entre otros, Ping-pong, 
Konami's Tennis, Road Figh- 
ter, Sky Jaguar, Atlethic Land, 
etc. Todos por 4000 ptas. Qui- 
Quo. Tlf: (93 ) 85 12295, de 1 *30 
a -4 tarde o bien a partir de las 
| 8'30^ noche. BARCELONA. 

i Vendo SONY HB-75P de 80 
! Kb y un procesador de texto 



Además vendo impresora plot- 
ter SONY (MSX), bola gráfica 
con programa en cartucho y 
monitor-TV en color SONY 
todo ello nuevo. Se vende en 
conjunto o bien por separado. 
Precios a convenir. Miguel An- 
gel. Tlf. (91)279 67 97.CP.2. 
Vendo Mitsubishi ML-FXl, 
cables, manuales y cinta con 
juegos por 35000 ptas. José 
Luis Gutiérrez. C/. Subida del 
Guruguru, 3, 3.° Drecha. Tlf: 
274682. 39004 SANTANDER 
(Cantabria). CP.2. 
Cambio/vendo cartuchos 
MSX. Tengo muchos títulos 
(Avenger, Green Beret, Dam- 
busters, Las 3 luces de Glau- 
rung, etc.) Robert Buckner 
Muñoz. Hermanos Becerril 19, 
7.°A. 16004 Cuenca. Tlf: 
222326. CP.2. 

Vendo SONY HB-75-80 Kb, 
manuales, cables v muchos pro- 
gramas comerciales. Todo por 
40.000 ptas. Octavio Llop Sal- 
vado. C/. Córcega, 111, l.°4. a 
D. Tlf: (93) 230 16 92. 08029 
BARCELONA. CP.2. 
Cambio/vendo juegos origina- 
les en cartucho. Tengo Sky Ja- 
guar, Green Beret, Xixolog, 
Chess y 3D Water Driver. Tlf: 
61 05 71. Juan Pastor Roldán 
Aviña. C/. Bami 21, 2.°D. 
41013 SEVILLA. CP.2. 
Vendo cartridge-copy por 
5000 ptas. M. a Teresa Roca. C/. 
Ramón Llull, n.° 1, 3° 2. a . 
25008 LERIDA. CP.2. 
Vendo MSX-2 Sony HB- 
F500P con unidad de disco de 
1 Mb. Teclado numérico. 128 
Kb de VRAM, conexión a mo- 
nitor. Sistema operativo y mu- 
chos juegos comerciales. 
100.000 ptas. Escribir a Luis 
Segura Salvador. C/. Castellini 
n.° 1, 3B. Cartagena. MUR- 
CIA. CP.2. 

Vendo ordenador Canon 
MSX, 80 Kb, unidad de disco 
de 3.5 pulgadas de 500 Kb, im- 
presora Philips 80 columnas y 
calidad de letra, 100 cps. Base 
de datos en disco MS-BASE; 
cartucho MAP con Base de Da- 
tos, Procesador de Textos, 
Contabilidad, Gráficos, Comu- 
nicaciones, muchos juegos en 
cartucho y cinta, libros, revis- 
tas, joystick. Todo muy barato 
y en buen estado. Manuel. Tlf: 
253 84 89, tardes. CP.2. 
Cambio un psicodélico de tres 
focos con regulación de volu- 
men, etc., nuevo a estrenar. Un 
órgano CASIO PT-82 con cin- 
ta de canciones, cámara foto- 
gráfica y una maquinita de cua- 
tro pantallas por ordenador 
MSX. Carlos Ordóñez. C/. 
Montsant 8-10, 2.° 2. a . 08820 
El Prat de Llobregat. BARCE- 
LONA. CP.2. 



BIENVEN 




T 





TJí.T. Termina con los peligros del castillo 
tenebroso armado con los barriles de T.N.T. 
Pero ¡ten mucho cuidado! Manipular los ex- 
plosivos es muy peligroso, y cualquier des- 
cuido puede ser fatal. PVP. 1.000 Pts. 



SKY HATO. Un magnifico Juego de si 
ción de vuelo. En él te conviertes en un piloto 
que ha de derribar al er~ ' 




LOTO. Este es el programa que estaban espe- 
rando los usuarios de USX para hacerse mi- 
llonarios cuanto antes. El complemento 
ideal a nuestro programa de quirdefas, con el 
que mas de un lector se ha hecho rico. PVP. 
900 Pts. 



LORD WATS0N. Este es un Juego muy original 
que combina el laberinto con las palabras 
cruzadas. Los obstáculos fantásticos y el vo- 

j.FVP. 1.000 pía. 




MARCIANOS] 




DEVTL'S CASTLE La más original, amena y 
entretenida aventura hecha vldeojuego. 
Eres un mago que debe romper el hechizo de 
itillo endemoniado Dará lo cual... Exce- 
g^cosyác,iona^e.PVP.900Pte. 



MATA MARCIANOS. Un Juego clásico en una 
versión cuya mayor virtud es su diabólica ve- 
locidad que aumenta a medida que superamos 



VAMPIRE. Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murció- 
lagos, fantasmas, etc. Un Juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Pts. 



¿gkSíÁjj** PARA MSX-1 

HARD 
C0PY 

POR JOAQUIN LOPEZ 



formatos da copla» slmulactói 
en blanco y nafro - copla 
aprttea radefina colorea 
compatible con cualquier 



CON GARANTIA 

TRANSFERSA 



HARD C0PY. Para copiar pantallas. Tres 
formatos de coplas, simulación por blanco y 
negro, copia sprites, redefinlc. de colores, 




CON GARANTIA 

/HAN-lAHAN TR4NSFERSA 



TEST DE LISTADOS. El segundo programa de 
la 8erie Oro es el útilísimo Test que te permi- 
tirá controlar la corrección de los progra- 
mas que copies de MSX CLUB y MSX EXTRA 
PVP. 500 Pts. 
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UBOCT 



QUINIELAS 




Y ^/CON GARANTIA . 

m 




KRYPTON. La batalla más audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX. 
PVP.5O0Ptas. 



El secreto de la 



ü-BOOT Sensacional juego de simulación 
submartna en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas 



QUINIELAS. El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 



SNAKE. Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella. PVP. 600 Ptas. 




EL 8BCRET0 DE LA PIRAMIDE. Atrevido STAR RUNNER Conviértete en el audaz FLOPPY, El Preguntón. Un verdadero desafio ^AD FOX. Un héroe solitario es 

Juego de aventuras a través de los misterios piloto interestelar y lucha a muerte, a a tus conocimientos de Geografía e Historia ^ carrera a vida o muerte por un desierto 



y peligros que encierran los laberínticos pa- través del hiperespacio, contra las defen- 

sülos de una pirámide egipcia. ¡Atrévete si sas del tirano Daurus. Dos pantallas y mucho superarlo. PVP. 1.000 Ptas 
puedes! PVP. 700 Ptas. cinco niveles de dificultad. PVP. 1.000 pts. 



española. Floppy no perdona y te costara plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión Diez niveles 



de dificultad. PVP 1 000 pts 

Si quieres recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 



Nombre y apellidos: 

Dirección: 

Población: 



CP 



Tel.: 



□ KRYPTON 

□ UBOOT 

□ QUINIELAS 

□ HARDCOPY 

□ LORD WATSON 

□ LOTO , 



Ptas. 500- 
Ptas. 700- 
. Ptas. 700,- 
Ptas. 2.500,- 
Ptas. 1.000,- 
Ptas. 900,- 



□ SNAKE 

□ EL 8ECRET0 DE LA PIRAMIDE 

□ STAR RUNNER 

□ TEST DE LISTADOS 

□ MATA MARCIANOS 

□ DEVIL'S CASTLE 



Ptas. 600- 
Ptas. 700,- 
Ptas. 1.000,- 
Ptas. 500- 
Ptas. 900- 
Ptas. 900- 



FLOPPY 


Ptas. 1.000,- 


MADPOX 


Ptas. 1.000- 


VAMPIRO . 


Ptas. 800- 


SKYHAWK 


Ptas. 1.000,- 


TNT , 


.,, Ptas. 1.000,- 



^Gastos de envió certificado por cada cassette 



Ptas. 70 - Remito talón bancario de Ptas. 



a la orden de Manhattan Transfer, S Aj 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 
A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 





EL BASIC paso a paso^ m 



PorWillyMiragall, 



LOS GRAFICOS (II) 



Tras la introducción a los gráfi- 
cos que hicimos en el pasado 
número, entramos ahora de lle- 
no en las instrucciones gráficas 
y su funcionamiento. 



Uno de los puntos por los que el 
MSX destaca frente a sus com- 
petidores es la gran cantidad de 
instrucciones gráficas que existen en el 
estándar, aue en otros ordenadores se 
ve muy reducida. 

Hoy trataremos de varias de estas 
instrucciones, en particular, las que 
nos permiten realizar dibujos estáticos 
en la pantalla de nuestro ordenador. 

Aunque en todos los ejemplos utili- 
zaremos SCREEN 2 queremos avisaros 
desde el primer momento de que todas 
las instrucciones que comentaremos 
funcionarán también de igual forma en 
SCREEN 3, y en SCREENs superiores 
si disponéis de un ordenador de la se- 
gunda generación. 

PSET 

Aunque ya hablamos suficiente so- 
bre esta instrucción en el pasado nú- 
mero, daremos un breve repaso de su 
funcionamiento. En todo este número 
daremos por asumidos los conceptos 
de coordenadas (X,Y), por lo que os 
remitimos a nuestro anterior número si 
tenéis alguna duda al respecto. 

La instrucción PSET nos permite di- 
bujar un punto en cualquier posición 
(X,Y) de la pantalla con cualquier co- 
lor que deseemos. Para ello sólo hemos 
de hacer: 
PSET (x,y),c 

sustituyendo "x", "y" y "c" por los res- 
pectivos valores que deseemos dar a las 
coordenadas x e y, y al color del punto 
respectivamente. 

Podemos utilizar en todo momento 
variables en lugar de estos valores y de 
este modo podemos introducir estas 
instrucciones dentro de bucles o de 
cualquier otro tipo de estructura. 

Demos un ejemplo de uso de esta 
instrucción. 
10 SCREEN 2 
20 FORL=lTOl5 
30 FORI=0TO255 
30 PSET(I,45),L 
40 NEXTI 
50 NEXTL 
60 GOTO 60 

Este programa dibujará líneas hori- 








zontales (ya que la coordenada Y per- 
manece constante=45) variando su co- 
lor entre 1 y 15. 

LINEAS Y RECTANGULOS 

Pero existe una forma mucho más 
cómoda y rápida de hacer todo tipo de 
líneas gracias a que el BASIC incorpo- 
ra una instrucción específica para el di- 
bujo de éstas. 

Se trata, claro está, de la instrucción 
LINE. Para poder dibujar una línea 
con esta instrucción deberemos indi- 
carle al ordenador las coordenadas de 
los dos puntos entre los que se trazará 
la línea y el color con el que queremos 
que se realice esta línea. Por ejemplo, 
para dibujar una línea verde (color 3) 



entre los puntos (100,100) y (215,170) 
deberíamos hacer: 

LINE(100,100)-(215,170),3 
En general, la estructura a seguir 
para utilizar la instrucción LINE es la 
siguiente: 

LINE (xl,yl)-(x2,y2),C 
donde xl e yl deben ser sustituidos 
por las coordenadas (x,y) del primer 
extremo de la recta. X2 e y2, de igual 
modo, deben ser sustituidos por las 
coordenadas del segundo extremo de 
la recta, y C por el código del color de- 
seado. 

Pero la utilidad de la instrucción 
LINE no se acaba aquí. Con ella es 
también posible la realización de rec- 
tángulos con lados paralelos a los ejes 
XeY. 



Para realizar un rectángulo con 
UNE sólo hemos de indicarle al orde- 
nador las coordenadas de dos puntos. 
El se encargará de dibujar el rectángulo 
de lados horizontales y verticales que 
tenga dos vértices opuestos en los pun- 
tos indicados. El modo de indicarle al 
ordenador que realice un rectángulo es 
el siguiente: 

LINE (xl,yl)-(x2,y2),c,B 

¡Atención!, la B que termina la 




ANGULOS EN RADIANES 



trucción LINE no debe ser nunca sus- 
tituida por nada, es la abreviatura del 
inglés BOX (caja) e indica al ordena- 
dor que se debe realizar un rectángulo. 
Repetimos: B no es ninguna variable y 
siempre se debe escribir lo mismo, 
"B". Veamos un ejemplo- 

LINE(100,100)-(215,170),3,B 

Por último, la instrucción LINE 
también nos permite dibujar rectángu- 
los rellenos, es decir, con toda su su- 
perficie coloreada con el color especifi- 

Para especificar esta instrucción de- 
beremos hacer: 

LINE (xl,yl)-(x2,y2),c,BF • 
donde BF vuelve a ser una abreviatura, 
esta vez de BOX FILL (caja y rellena). 



Todo el mundo sabe lo que es un 
ángulo, y también medirlos en 
grados; pero tal vez no todos se- 
pan cómo se miden los ángulos en ra- 
dianes. Vamos a realizar una breve ex- 
posición de este sistema de medida de 
ángulos. 

Si hablamos en grados, una circunfe- 
rencia tiene 360 grados. A partir de 
aquí podemos deducir que media cir- 
cunferencia tendrá 180, y que un cuar- 
to de ésta tendrá 90 grados. 

En radianes ocurre exactamente lo 
mismo. Para simplificar un gran núme- 
ro de operaciones, tanto matemáticos 
como físicos se han puesto de acuerdo 
en utilizar el radián. Un radián es el án- 
gulo que recorre el radio si lo situamos 
sobre la circunferencia (ver figura 1). 
Como en toda la circunferencia hay 2* 
PI veces el radio, se dirá que en una cir- 
cunferencia hay 2*PI radianes. De este 
modo, media circunferencia medirá PI 
radianes, y un cuarto PI/2 radianes. 

Los ordenadores MSX trabajan en 
radianes. Todas las operaciones trigo- 
nométricas -SIN, COS, etc.- se expre- 
san en radianes, así como los ángulos 
para la realización de arcos. 

En todos los casos, los ángulos se mi- 
den a partir de la semirrecta horizontal 
que corresponde al lado positivo del 
eje X y en sentido inverso al de las agu- 
jas del reloj. Quedará más claro si se 
consulta la figura 2. 

Los ángulos siempre han de ser posi- 
tivos, y deben estar comprendidos en- 
tre 0 y 2*PI (6.28). 

Si sabéis el valor del ángulo en 



No debe ser sustituida. Damos tam- 
bién un ejemplo: 

LINE(100,100)-(215,170),3,BF 

CIRCULOS, ARCOS Y 
OTROS 

Tras ver cómo podemos realizar lí- 
neas en nuestro MSX pasemos a ver 
cómo realizar círculos con estos orde- 
nadores. 

El BASIC de los MSX cuenta con 
una instrucción específica para esta ta- 
rea, como cuenta con LINE para la rea- 
lización de líneas. 

Para poder realizar un círculo nece- 
sitamos indicarle al ordenador 3 cosas: 
las coordenadas (x,y) del punto corres- 







%m 






m 



FIGURA 2 

nes. Para ello deberéis utilizar la fór- 
mula: 

RAD = GRA*PI/180 
donde GRA debe ser sustituido por la 
cantidad en grados que conocemos y 
PI por 



pondiente al centro del círculo, el radio 
(R) del círculo y el color (C) con el cual 
queremos que aparezca dibujado en la 
pantalla. Veamos un ejemplo: 

CIRCLE (128,96),50, 15 
dibuja un círculo con centro en el pun- 
to (128,96), de radio 50 y con color 
blanco (15). En general, la instrucción 
CIRCLE debe ser utilizada de la si- 
guiente forma: 

CIRCLE (x,y),R,C 

Al igual que la instrucción LINE nos 
permitía realizar otros dibujos, además 
de líneas, la instrucción CIRCLE nos 
permite realizar arcos^ elipses. 

Para poder realizar arcos se deben 
tener claros dos conceptos matemáti- 
cos de gran importancia, los ángulos y 
el modo de expresarlos 
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Para poder indicarle al ordenador 
aue debe realizar un arco hemos de 
darle la siguiente información: coorde- 
nadas del punto central (x,y,), radio 
(R) del círculo que contiene a ese arco, 
color del mismo (C), y los ángulos de 
inicio y final del arco en cuestión. Estos 
dos últimos datos deben expresarse en 
radianes. Si no conocéis la forma de ex- 
presar un ángulo en radianes os reco- 
mendamos que leáis detenidamente el 
recuadro que incluimos y que explica 
cómo expresar en radianes cualquier 
ángulo que deseemos. 

La forma de hacer que el ordenador 
dibuje un arco es la siguiente: 

CIRCLE (x,y),R,C,al,a2 
donde al y a2 son los ángulos de inicio 
y final respectivamente. Es muy impor- 
tante el orden de estos dos datos, ya 
que el arco se dibujará desde el ángulo 
"al" hasta el "a2" siguiendo el sentido 
antihorario, es decir, contrario a las 
agujas del reloj. 

Podemos hacer también que se di- 
bujen los radios que unen el centro de 
la circunferencia que contiene el arco 



EJERCICIOS 



En esta ocasión os propondremos 
un único ejercicio, consistente 
en realizar un dibujo lo más pa- 
recido posible a la realidad, de algún 
objeto cercano a vuestro ordenador (o 
bien vuestro propio ordenador). Po- 
déis utilizar para ello todas las instruc- 
ciones gráficas explicadas hasta ahora. 

SOLUCIONES A LOS 
EJERCICIOS DEL MES 
PASADO 

El primer ejercicio de los propuestos 
en nuestro pasado número es tan gene- 
ral que difícilmente podríamos dar una 
solución típica. En él se proponía que 
realizárais cualquier dibujo utilizando 
únicamente la instrucción PSET. 

Suponemos que no habréis encon- 
trado excesivas dificultades en este 
punto, así que pasamos al siguiente 
ejercicio. 

En el segundo ejercicio os pedíamos 
que Uenárais to4a la pantalla con pun- 
tos de color verde. Una posible solu- 
ción sería: 






20 COLOR 3' Verde 
30FORY=0TO 191 
40FORX=0TO255 
50 PSET (X,Y) 
60NEXTX 
70 NEXTY 
80 GOTO 80 

Si observáis el programa os daréis 
cuenta de que las líneas 40 a 60 única- 
mente realizan una línea horizontal 
(ejemplo que dimos en el pasado nú- 
mero). Basta con repetir esto 192 veces 
cambiando en cada caso el valor de Y 
para tener todas las líneas horizontales 
que caben en una pantalla. Es, en defi- 
nitiva, algo tan sencillo como el progra- 
ma de arriba. 

Por último, para dibujar una X en la 
pantalla lo más grande posible pode- 
mos hacer algo como 
10 SCREEN 2 
20FORI=0TO255 
30X=I 

40Y=(I/255)*191 
50 PSET (X,Y) 
60PSET(X,191-Y) 
70NEXTI 
80 GOTO 80 

Esperamos que este programa os re- 
sulte más o menos familiar, ya que otra 
versión similar a ésta se explicó al ha- 
blar de la instrucción LOCATE en la 
resolución de los ejercicios. ¡Hasta el 

mesqueviene! 



con 
Para 



de inicio o fin del arco, 
lo sólo hemos de anteponer un 
signo menos " al ángulo correspon- 
diente. Por ejemplo, si quisiéramos que 
apareciese el radio que une el centro 
con el principio del arco haríamos, por 
ejemplo: 

CIRCLE (128,96),50,15, -3.1416,4.25 

Finalmente podemos modificar el 
u ASPECT RATIO" de las circunferen- 
cias o arcos que vayamos a dibujar. Se 
llama "aspect ratio" a la relación exis- 
tente entre ancho y alto. Por ejemplo, 
una elipse el doble de alta que de ancha 
tendría un A.R. de 2/1. 

Os habréis dado cuenta, si habéis te- 
cleado alguno de los ejemplos de que el 
ordenador dibuja las circunferencias li- 
geramente ovaladas (más anchas que 
altas). Esta deformación se produce 

f)orque los puntos utilizados por el te- 
evisor no son perfectamente redon- 
dos. En la mayoría de televisores el 
A.R. que se produce espontáneamente 
es de 3/4. 

Un fenómeno similar ocurre con los 
volcados sobre impresora de los gráfi- 
cos. Ahora bien, en este caso cada mo- 
delo de impresora cuenta con un A.R. 
diferente. 

Para conseguir circunferencias per- 
fectas en nuestro ordenador sólo he- 
mos de indicarle un A.R. que compen- 
se el que se produce normalmente. 
Este A.R. es de 4/3. El aspecto final de 



la instrucción CIRCLE es el siguiente: 
CIRCLE (x,y),R,C,al,a2,AR 
Por ejemplo, dibujar una circunfe- 
rencia perfectamente redonda sería: 
CIRCLE (128,96) ,50, 15 ,,,4/3 
Una elipse alargada horizontalmente 
sería 

CIRCLE (128,96),50,15„,l/6 
y lo mismo verticaímente sería 
CIRCLE (128,96),50,15„,8/3 

Daos cuenta de que no indicamos los 
ángulos de inicio y final, ya que dibuja- 
mos una circunferencia. ¡No debéis ol- 
vidar las comas! 

Y un último detalle, si modificamos 
el A.R. de una circunferencia o de un 
arco, el radio que indiquemos será 
siempre un radio vertical. 



PINTANDO 

La última instrucción que comenta- 
remos en este número es la instrucción 
PAINT. Gracias a esta instrucción po- 
dremos rellenar con un color todo tipo 
de contornos, por irregulares que estos 
sean. 

Para ello deberemos buscar las coor- 
denadas de un punto (x,y) interior a la 
figura que queremos rellenar. Sólo nos 
queda indicárselo al ordenador. Para 
ello haremos 

PAINT (x,y),C 
que rellena la figura que contenga al 
punto (x,y) con el color C. 

Existe una diferencia de utilización 



de esta instrucción según estemos en 
SCREEN 2 o en SCREEN 3. 

* SCREEN 2: Sólo podemos pintar 
la figura con el color del contorno con 
el cual está dibujada. Cualquier intento 
de rellenar una figura con un color di- 
ferente producirá un desbordamiento. 

* SCREEN 3: El contorno ha de ser 
de un sólo color, pero podemos relle- 
nar la figura con un color diferente al 
del contorno. Para ello hemos de hacer 

PAINT (x,y),cp,cl 
donde "cp" es el color con el que que- 
remos rellenar la figura y "el" el color 
con el cual está dibujada la misma. 

Esperamos que con esto tengáis grá- 
ficos para rato. ¡Hasta el próximo nú- 



SEHSACIOHAL CONCURSO 

"GANA UHMSX-2" 


m ia vista aei inieres que suscitan entre nuestros lectores, ios aparatos ae la 
segunda generación, nuestra revista organiza un "concurso relámpago", cuyo 
premio será un MSX-2 SONY HIT BIT F9S. 

El modo de participar en este concurso no puede ser más sencillo: Durante los 
meses de julio, agosto, septiembre y octubre, aparecerán en esta revista las 
letras M, S, X y el número 2 respectivamente. Para poder entrar en el sorteo del 
aparato, deberá remitirse a esta redacción -durante todo el mes de octubre- el 
anagrama MSX2 formado con las letras aparecidas en los sucesivos números. 
El plazo para la recepción de estos programas finalizará el día 2 de noviembre 
de 1987, y entre todos los recibidos hasta esa fecha sortearemos el fabuloso 
SONY HB-F9S MSX2. 

Nota importante: Sólo se aceptarán las letras originales. 
Las fotocopias serán automáticamente invalidadas. 


mmm 
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JULIO 
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AGOSTO 


A 

SEPTIEMBRE 


OCTUBRE 
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¿Y TU POR QUE NO?, 



Por Antonio Morenoi 







Sí, tú lector habitual de nuestra 
revista, ¿jamás te has planteado 
el programar por ti mismo un 
juego? Decídete: con paciencia, 
algo de ingenio y después de 
leer este artículo, no te será di- 
fícil alcanzar tu meta. 



COMO 
PROGRAMAR 
UN VIDEOJUECO 



Parecerá trivial lo que me dispon- 
go a explicar, pero creo que an- 
tes de analizar el cómo se hace 
un juego, lo lógico es que nos pregun- 
temos por los diferentes tipos de juegos 
para posteriormente analizarlos uno 
por uno. No se puede hacer una des- 
cripción de "los juegos" en general, de- 
bido a la gran diversidad de los mismo. 

Juego es un programa dedicado al 
ocio, a entretener al usuario, en teoría 
tendría que estar dedicado al relax del 
usuario, pero ciertas avalanchas de 
"marcianitos* impiden a menudo este 
cometido. Juegos hay de muchas cla- 
ses: desde los juegos inteligentes, como 
los conversacionales o los juegos de 
mesa (ajedrez, backgammon), hasta los 
juegos de "marcianitos": los famosos 
"arcade games". Analicémoslos: 

JUEGOS INTELIGENTES: en los 
aue lo fundamental es la capacidad de 
decisión del jugador y no el tiempo en 
el que lo haga, ni otras cualidades del 
jugador como la rapidez de reflejos, la 
"constancia", la "fuerza de volun- 
tad"... (Sigo naciendo alusión a las pla- 
gas de antes...) 

Aquí estarían clasificados los juegos 
de ajedrez, poker, damas, parchís... así 
como los juegos conversacionales o 
"adventure games" (adventure games 
ya que el primer juego de este tipo tenía 
precisamente este nombre: "Adventu- 
re"). En estos últimos debemos indi 1 
carie a nuestro personaje lo que debe 
hacer mediante una serie de órdenes 
del tipo "VE NORTE", "MATA A 
GREMLIN", "COGE LLAVE" o 
"INVENTARIO", de sintaxis muy 
sencilla y que están limitadas a un con- 
junto de verbos y un conjunto de direc- 
ciones, de objetos, de personajes a los 
cuales aplicar esos verbos. Cualquier 
intento de ordenarle a nuestro perso- 
naje que realice otra acción diferente 
de las que puede realizar conllevará el 
fatídico mensaje de "NO SE COMO 
HACER ESO" o el desesperante 
"PERDON?". Esto tiene la ventaja de 
que uno puede dirigirse al ordenador 




FIGURA 1 
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con todo tipo de palabras y expresio- 
nes malsonantes, que este nos respon- 
derá con un "no sé cómo hacer eso"... 

JUEGOS DEPORTIVOS O DE SI- 
MULACION: Aquí nos encontramos 
con los juegos más cotizados última- 
mente. En ellos debemos desde con- 
trolar nuestro bólido a través de un si- 
nuoso circuito de carreras (reproduci- 
do más o menos fielmente de los exis- 
tentes en la realidad), hasta ordenar a 
un jugador de baloncesto que efectúe 
las jugadas más espectaculares con un 
solo toque de joystick. La característica 
fundamental de este tipo de programas 
es que procuran ser lo más fieles a la 
realidad. Tienen en cuenta todo tipo de 
detalles, para que así tengamos la sen- 
sación de que realmente estamos con- 
duciendo un auto, pilotando un avión, 
o jugando a básket. 

A pesar de que no se ajusten a la defi- 
nición de juegos deportivos he situado 
aquí a los simuladores de vuelo, debido 
a que como los deportivos intentan 
imitar al máximo situaciones reales. 

• ARCADE GAMES": Para finalizar 
esta descripción nos encontramos con 
los "marcianitos", "comecocos" y de- 
más elementos de la especie. Aquí no 
prima la capacidad de reacción, sino la 
rapidez con la que ésta se lleva a cabo. 
En ellos el jugador debe enfrentarse a 
enemigos muy tontos, pero en gran nú- 
mero, y que con frecuencia aumentan 
de velocidad con el transcurso de la 
partida, o bien que aumentan de "peli- 
grosidad". Aquí también incluyo a esos 
juegos en los que debemos dirigir a un 
personaje a través de los pasillos de un 
castillo, o a través de un laberinto, 
mientras realiza una serie de acciones 
encadenadas que le llevarán a conse- 



guir terminar el juego. Todo ello mien- 
tras extermina a multitud de seres de 
tod© tipo que intentarán evitar el fin de 
la partida con éxito... 

Debido a la extensión que tendría 
este artículo si en él se abordaran con 
detalle cada uno de los tipos de juegos, 
únicamente me centraré en los "adven- 
ture games" y en los "arcade games". 

JUEGOS 

CONVERSACIONALES 
(ADVENTURE GAMES) 



En ellos se distinguen claramente 




dos partes: la parte gráfica y la parte 
"conversacional", es decir, la parte en- 
cargada de dibujar una ilustración que 
nos oriente sobre el juego en cada mo- 
mento del mismo, y la parte que con- 
trole el juego en sí mismo. Los progra- 
mas de este tipo pueden carecer de par- 
te gráfica, pero es imprescindible que 
tengan la parte conversacional. 

Lo más práctico para explicar cómo 
programar un juego de este tipo es in- 
ventarnos uno. El diagrama de flujo de 
un iuego de este tipo, en general, es el 
de la figura 1. 

En nuestro juego van a intervenir 
dos personajes, aparte de nosotros, que 
serán Pedro -el malo- y ViLma -el bue- 
no-. Al encontrarnos con cualquiera 
de ellos y preguntarles se nos formulará 
una adivinanza que si acertamos - nos 
revelará dónde está la llave necesaria 
para abrir la puerta de salida y terminar 
el juego. Es un juego extremadamente 
sencillo, pero que nos servirá perfecta- 
mente como ejemplo. 

El primer paso que hemos de dar es 
diseñar el edificio donde toda la acción 
transcurre. Este es el mostrado en la fi- 
gura dos. 

Después hemos de pensar cuáles van 
a ser los verbos que vayamos a usar y 
qué complementos vayan a llevar, de 
tal forma que cualquier otro verbo, o 
un verbo correcto con los complemen- 
tos erróneos nos dé un error del tipo 
NO SE COMO HACER ESO. Los 
verbos que vamos a utilizar van a ser los 
siguientes (a continuación se detallan 
también los únicos complementos po- 
sibles): 



IR NORTE, SUR, ESTE, OESTE. 
MIRAR 

COGER LLAVE 
PREGUNTAR PEDRO, VILMA. 
ABRIR CON LLAVE. 



Estas son las únicas acciones que po- 
dremos llevar a cabo en nuestro pro- 
grama. 

Vayamos ahora analizando una a 
una cada una de las partes del progra- 
ma: 

INICIALIZACION. Aquí el pro- 
grama debe presentarnos en pantalla la 
primera ilustración sobre el lugar don- 
de estamos. También debe informar- 
nos de las posibles salidas hacia donde 
dirigirnos, de si está Pedro o Vilma... 
Para saber en todo momento las posi- 
bles salidas construiremos una matriz 
con todos los datos: entradas, salidas, 
objetos de la habitación... 

En la inicialización se debe construir 
esta matriz como se indica a continua- 
ción en la figura 3: 
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¿Y tú porqué no?. 
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NO: número 
de orden 
N: norte 
S: sur 
E: este 
O: oeste 
LL: llave 
P: Pedro 
V: Vilma 

FIGURA (3) 



TABLA DE VERBOS: 
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| TABLA DE COMPLEMENTOS: | 



Figura (4) 



'NORTE" 



"SUR" 



"ESTE" 



"OESTE" 



'PEDRO" 



"VILMA" 



"LLAVE" 




La matriz está construida de la si- 
guiente forma: cada una de las filas es 
una habitación del edificio. En cada 
una de las columnas están indicadas el 
número de habitación, luego las posi- 
bles salidas, luego si en esa habitación 
está la llave, Pedro o Vilma. Por ejem- 
plo: la cocina es la habitación número 
nueve, no tiene salida al norte (x = ca- 
recer de), hacia el sur da a la habitación 
8, no tiene salida al este y hacia el oeste 
da al pasillo 3. Las tres últimas colum- 
nas se establecen arbitrariamente, en la 
marcada como "LL" aparece la posi- 
ción de la llave (en nuestro caso en el 
dormitorio). Esta columna debería ser 
cambiada al azar cada vez que se inicia 
la partida. Arbitrariamente y del mis- 
mo modo he situado a Pedro en la sala 
de estar y a Vilma en la cocina... (espe- 
ro no ser atacado por una horda de fu- 
ribundas feministas...). Aunque esta si- 
tuación podría también ser establecida 
aleatoriamente al empezar la partida 
(esto ya está mejor...) 

Una vez iniciálizadas todas las varia- 
bles, dibujado en pantalla el primer di- 
bujo, y presentado el primer mensaje, 
la misión de la inicialización ha termi- 
nado. 

EL INTRODUCTOR DE ORDE- 
NES. El problema planteado es el si- 
guiente: hemos de descomponer una 
cadena de dos palabras -rechazaremos 
previamente toda aquella que no cum- 
pla este requisito- en el verbo y el suje- 
to. Para ello el programa debe hacer 
una una lectura de la cadena desde el 
teclado y posteriormente descompo- 
ner la cadena en sujeto y verbo. Para 
ello se busca el espacio del medio de la 
cadena. Lo que quede a la izquierda se 
buscará en la tabla de verbos (figura 
[4]) y si se ha encontrado el verbo se 
procederá a localizar lo que ha queda- 
do a la derecha en la tabla de comple- 
mentos. Para finalizar se deberá com- 
probar si el complemento se ajusta al 
verbo. 

Esta rutina acabará su misión bifur- 
cando la ejecución del programa a la 
subrutina correspondiente al verbo, 
habiendo previamente fijado el com- 
plemento escogido. 

Por ejemplo: ante la orden "IR 
NORTE" el ordenador distingue entre 
"ir" y "norte" busca ir y lo encuentra, 
busca norte y también lo encuentra. 
Para finalizar busca en la fila de ir para 
verificar si puede ser norte un comple- 
mento de ir. En caso afirmativo dirige 
la ejecución del programa a la subruti- 
na de ir. 
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LA SUBRUTINA "MIRAR" 

Miradas sólo pueden serlo tres co- 
sas: la llave, Pedro y Vilma. Así que lo 
primero que hace esta rutina es com- 
probar si en la habitación en la aue nos 
encontramos están Pedro, la llave o 
Vilma, imprimiendo el mensaje "veo a 
Pedro" o "veo a la llave"... si estuviesen 
allí. Posteriormente vuelve a imprimir 
nuestra situación en el piso y las posi- 
bles salidas. 

LA SUBRUTINA "COGER" 

Sólo se puede Coger la llave, así que 
hay que verificar si la llave está en nues- 
tra habitación y entonces en el lugar co- 
rrespondiente de la matriz poner una 
"n" (el programa sabrá que la llave 
obra en nuestro poder cuando al bus- 
carla en todas las habitaciones no la en- 
cuentre en ninguna). 

LA SUBRUTINA 
"PREGUNTAR" 

Preguntados, sólo pueden ser Pedro 
y Vilma, así que tras la ya habitual com- 
probación para ver quién está, se im- 
prime el resultado y se entra desde el 
teclado la respuesta. Se compara con la 
respuesta correcta y si es correcta y 
quien está es Pedro no pasa nada, pero 
si quien está es Vilma, entonces se bus- 
ca en qué habitación está la llave y se 
imprime "LA LLAVE ESTA EN" jun- 
to al nombre de la habitación. Si la res- 
puesta es errónea y quien está es Pedro 
sencillamente nos aniquila v la partida 
termina. En cambio si es Vilma no pasa 
nada. 

LA SUBRUTINA "ABRIR" 



Para que esta subrutina pueda ser 
ejecutada, es necesario que estemos en 
la habitación 0, en el punto de partida, 
que tengamos la llave. Tras compro- 
»ar esto, si estas condiciones se cum- 



Esta es la subrutina más compleja, ya 
que primero debe comprobar en qué 
habitación estamos (busca en la colum- 
na de los números de habitación la que 
está marcada con una "x"), para poste- 
riormente comprobar si existe salida 
en la dirección en la que queremos ir. Si 
la hay modifica la matriz -nos sitúa en 
la nueva habitación-, nos cambia el di- 
bujo ilustrativo y nos da una descrip- 



ción de la nueva habitación, así como 
las salidas o quién está... 

En caso negativo, la subrutina debe 
avisarnos mediante un error del tipo 
"YO NO PUEDO IR EN ESA DI- 
RECCION", volviendo luego a entrar 
otro comando. 

En resumidas cuentas hemos visto 
cómo programar un programa de 
"aventuras", un programa conversa- 
cional, así que pasamos ahora al segun- 
do bloque: los arcade. 
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JUEGOS DE 
"MARCIANITOS" 
"ARCADE" GAMES 

Aquí la problemática cambia. Pasa- 
mos de unos programas en que los grá- 
ficos tienen una importancia secunda- 
ria, aunque nunca despreciable, a otros 
en que los gráficos son vitales. 

Un arcade será bueno en tanto en 
cuanto tenga unos buenos gráficos y en 
tanto sea adictivo. Para conseguir esto 
segundo una condición indispensable 
es LA RAPIDEZ DE EJECUCION. 
Por eso la inmensa mayoría de los pro- 
gramadores de arcades recurre al códi- 
go máquina como lenguaje de progra- 
mación, pero para los más noveles, o 
para aquellos que las palabras "código 
máquina" aún les pongan los pelos de 
punta o les recuerde a la combinación 
de su caja fuerte de SUIZA... Voy a 
darles unos cuantos consejos sobre la 
rapidez. 
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¿Y tú porqué no?i 



Para ser rápido hay que: 

- Eliminar las sentencias inútiles como 
los famosos "REM", los cuales no 
hacen nada salvo conseguir que el 
ordenador pierda un tiempo precio- 
so leyéndolos. Deben ser eliminados 
aunque esto nos dificulte la poste- 
rior comprensión del programa. 

- A pesar de que las instrucciones lar- 
gas son más difíciles de estructurar y 
comprender, el ordenador las proce- 
sa más rápidamente. 

- Evita el uso de matrices, que consu- 
men más tiempo del normal en una 
variable vulgar. 

- No nombres a las variables con lar- 
gos nombres que nos evoquen su 
contenido, ya que éstos son más di- 
fíciles de encontrar. 

- Sustituya las sentencias IF-THEM 
por otras de tipo matemático en 
cuanto sea 

10 IF 
X=X— 1 

20 IF INKEY$="B" THEN 
X=X+1 

podrían ser sustituidas por: 
10 x=x+l*(inkey$= a a w ) 
-l*(inkey$= a b w ) 
que son más rápidas al ser un cálculo 
matemático. Recordemos que la fun- 
ción inkey$ equivale a un uno si la 
condición se cumple o a un cero, si 
no se cumple. 

- Evite en lo posible los GO TO y los 
GOSUB ya que estas instrucciones 
implican una DÚsqueda en memoria 
con la consecuente pérdida de tiem- 

- Procure que las subrutinas más úti- 
les se encuentren al principio del 
programa. Procure también que la 
inicialización de las variables, la defi- 
nición de los sprites, las instruccio- 
nes estén al final del programa. 
Cuando hagan falta, no tiene más 
aue hacer un GOSUB a la línea don- 
de estén. La razón de ser de esto es 
que al hacer un GOTO como un 
GOSUB el ordenador empieza a 
buscar la línea por el principio del 
progama. Así si las rutinas más usua- 
les están al principio el ordenador las 
encontrará mucho antes, con lo cual 
el programa se verá acelerado. 

- Para terminar, utilice el menor nú- 
mero de variables posible, ya que el 
ordenador tiene que buscar las mis- 
mas en memoria, con el consiguiente 
gasto inútil de tiempo. 

LOS SPRITES 

Como antes he dicho, los programas 
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arcade son eminentemente gráficos. 
No sólo eso, sino que en estos progra- 
mas se manejan constantemente gráfi- 
cos en movimiento. El ordenador dis- 
pone de unas estructuras gráficas que 
nos van a permitir el movimiento con 
facilidad: son los sprites. 

Del diseño de los sprites depende, 
en gran manera, el éxito del programa. 
Nosotros vamos a diseñar nuestro pro- 
pio sprite y luego desarrollaremos una 
serie de rutinas que nos permitan el 
control del mismo. El diseño del sprite 
depende de cada uno. 

Se pueden emplear cuatro tamaños 
de sprites: 

- De 8X8 puntos 

- De 8x8 puntos 
ampliados a 16x16 

- De 16 x 16 puntos 

- De 16x16 puntos 

ampliados a 32x32 

Comencemos así diseñando un spri- 
te de 8x8 puntos. Para ello en papel 
cuadriculado dibujamos una cuadrícu- 
la de 8x8 caracteres, entonces relle- 
nando los cuadrados, pintamos la figu- 
ra. Aquellos puntos que vavan a ser 
pintados los rellenamos cíe negro. 
Nuestra cuadrícula puede ser leída 
como ocho filas de ocho cuadraditos 
pintados de blanco o negro. Bien, aho- 
ra le asignaremos a los cuadraditos 
blancos un cero, y a los negros un uno. 



SCREEN ,0. 

SCREEN,1. 
SCREEN ,2. 

SCREEN ,3. 



Tendremos ocho números en binario 
que nos representan a las ocho filas del 
sprite, como esto: 

00011000 

00111100 

01111110 

11111111 

00011000 

00011000 

00011000 . 

00011000 
Pues bien. Ha llegado la hora de co- 
municarle al ordenador como es nues- 
tro sprite. Para ello utilizaremos el co- 
mando SPRITE$ (<entero>=<cade- 
na de caracteres>). 

El entero puede oscilar entre 0 y 255 
cuando el tamaño del sprite es cero o 
uno. En cambio sólo de 0 a 63 cuando 
el tamaño del sprite es de dos o tres. La 
cadena de caracteres debe contener el 
carácter, que genera la función CHR$, 
correspondiente a cada fila del sprite. 
Así: 

SPRITE$(0) = 
CHR$(&B00011000)+ 
CHR$(&B00111100) + 
CHR$(&B01111110)+ 
CHR$(&B11111111)+ 
CHR$(&B00011000)+ 
CHR$(&B000 11000) + 
CHR$(&B00011000) + 
CHR$(&B00011000) 



Con ello habríamos definido nuestro 
sprite. Si no deseamos entrar los núme- 
ros en binario deberíamos pasarlos a 
decimal sabiendo que el primer núme- 
ro de la derecha vale 128, el segundo 
64, el tercero 32, el cuarto 16, el quinto 
8, el sexto 4, el séptimo 2 y el octavo 1. 
Entonces deberíamos sumar los valo- 
res de cada número sólo si este es un 
uno, pongamos un ejemplo para acla- 
rar las ideas: si la primera fila era 
00011000 deberemos hacer: 



el momento: PUT SPRITE A,(X,Y), 
C,N. Donde a es la prioridad del sprite 
(el a plan6 de pantalla" en el que apare- 
cerá), x,y son las coordenadas en las 
que se situará de la pantalla, c es el co- 
lor con que aparecerá y n es el número 
de sprite que pusimos entre paréntesis 
al definir el sprite, es decir, el número 
del sprite. 

Al hablar de "plano de sprite", en- 
tendemos cada una de las distintas " ca- 
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0 = 16+8 = 24 decimal 






El número 00011000 en binario 
equivale al 24 en decimal. Análoga- 
mente hallamos los valores del resto: 
00111100 = 32+16+8+4 = 60 
01111110 = 64+32+16+ 8+4+2 
= 126 

11111111 = 128+64+32+16+8+ 
4+2+1 =255 

Las cuatro últimas filas son iguales a 
la primera. Los valores de nuestro spri- 
te son 24,60,126,255,24,24,24,24. 

Un programa que los introdujese en 
memoria sería: 



10 SCREEN2,0 
20FORI=lTO8 
30 REAL) A: S$=S$+CHR$(A) 
40NEXTI 
50 SPRITE$(0)=S$ 
60 PUT SPRITE 0,(100,100),15,0 
70 DATA 24,60,126,255,24,24,24,24 
80 GOTO 80 



Para construir un sprite de 16x16 
habría que dividir el mismo en cuatro 
cuadrantes de ocho por ocho y luego al 
introducir los números en la < variable 
de cadena> el orden sería el siguiente: 
primero el cuadrante superior izquier- 
do, seguido del cuadrante inferior iz- 
quierdo, luego el superior derecho y 
para finalizar el inferior derecho. 

En la línea 60 del programa observa- 
mos una instrucción desconocida hasta 



pas" en las que se puede situar un spri- 
te. La "capa" más externa es la cero, y 
la más interna es la 32. Tiene mayor 
prioridad la capa menor. Así, si dos 
sprites se superponen se observará por 
encima el que esté situado en una capa 
con mayor prioridad. Sólo se puede si- 
tuar un sprite en cada plano: podremos 
tener hasta 32 sprites a la vez en la pan- 
talla. 

Variando las coordenadas x,y del 
sprite éste se moverá por la pantalla, te- 
niendo la particularidad de que si se sa- 
liese por un lado aparecería de nuevo 
por el otro. La pantalla de sprites es 
continua. 

Para finalizar he de recordar un con- 
cepto muy importante a la hora de ma- 
nejar sprites: No se pueden situar más 
de cuatro en una misma coordenada 
horizontal. Si esto ocurriera sólo se 
mostrarían los cuatro últimos sprites 
en pantalla. 

En fin, si has llegado leyendo hasta 
este punto ¡GRACIAS! (No creo que 
todos lo hayan conseguido), y espero 
que tus conocimientos sobre la progra- 
mación de juegos hayan aumentado. 
Quién sabe, quizá este artículo haya 
sido el principio de un gran futuro pro- 
. TU PROPIO PROGRAMA. 
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¿QUIERES INFORMACION 
CLARA Y ASEQUIBLE 
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QUE DERIVA 
EL ESTANDAR MSX? 
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lREVISTADE 
NUESTRA EDITORIAL 

SOBRE EL 
"OTRO" ESTANDAR 



Pide en tu Mosco el n.° 5 



CONCURSO MSX. 



SUPER 
CONCURSO 




En este número os propone- 
mos un concurso especial de ve- 
rano. Para optar a los premios 
que ofrecemos deberéis realizar 
un programa que siga las reglas 
que comentamos a continua- 
ción. El premio os espera. 



LA PROGRAMACION 
ESTRUCTURADA 

La programación es calificada por 
muchos como ciencia, mientras 
que para otros es el arte de hacer 
programas. En ambos casos, la progra- 
mación es la ciencia/arte consistente en 
hacer "buenos" programas. 

La calidad de un programa es algo 
muy subjetivo en la mayoría de las oca- 
siones. Sin embargo existen unas reglas 
del buen hacer en el arte de la progra- 
mación. Siguiendo estas reglas se reali- 
zan programas que, aparte de funcio- 
nar correctamente, son fácilmente inte- 
ligibles por otros usuarios, es sencillo 
modificarlos y ayudan a que otros 
usuarios mejoren sus conocimientos 
informáticos. 

LAS REGLAS DE LA 

PROGRAMACION 

ESTRUCTURADA 

La primera regla de la programación 
estructurada es, evidentemente, es- 
tructurar el programa. Hacer un pro- 

Sama no consiste en sentarse delante 
J ordenador y empezar a teclear lí- 
neas como si se tratara de una inspira- 
ción poética. 

En primer lugar se debe tener una 
idea muy clara del programa que de- 
seamos realizar. Saber qué opciones 
debe contemplar, cómo debe funcio- 
nar. En definitiva, tenemos que imagi- 
narnos el programa completo y cómo 
debe funcionar. Sin esta visión de con- 
junto es muy difícil afrontar el proble- 
ma de una forma estructurada y fácil al 
mismo tiempo. 

Una vez tenemos clara la forma que 
debe tener nuestro programa, el si- 
guiente paso consiste en dividirlo en 
bloques independientes. Por ejemplo, 
si estamos realizando un videojuego la- 
beríntico (en el aue tenemos que reco- 
rrer un intrincado laberinto recogien- 
do 




dríamos dividir el juego en las siguien- 
tes partes. 

* Crear laberinto. 



* Colocar objetos. 

* Dibujar pantalla y cambiar de pan- 
talla. 



* Mover personaje. 

* Mover enemigos. 

Un juego tan complicado como un 
juego de aventuras puede quedar redu- 
cido a este esquema. Cada uno de estos 
puntos es muy fácil de programar por 
separado, que es lo que se debe hacer. 
Incluso podemos incorporar a varios 
juegos la misma rutina de cambio de 
pantalla (es lo que hacen los programa- 
dores profesionales de videojuegos) o 
de movimiento de personajes. 

Para programar cada uno de estos 
puntos hemos de imaginarnos que se 
trata de un programa completo. Por 
ejemplo, «mover personaje» debe ser 
un programa capaz de mover un perso- 
naje por la pantalla, detectando obs- 
táculos que puedan existir en la panta- 
lla. 

Cada uno de estos subprogramas 
debe incluirse en una o varias subruti- 
nas separadas. 

PRESENTACION DE LAS 
SUBRUTINAS 

Cada subrutina debe separarse del 
resto del programa por un conjunto de 
líneas REM en las que se debe especifi- 
car el nombre de la subrutina, su fun- 
ción, las variables que utiliza, y toda la 
información aue pueda ser necesaria 
para que cualquier programador en- 
tienda la utilidad y el funcionamiento 
de tal subrutina. 

Las subrutinas deben utilizarse 
siempre que puedan ayudar a la clari- 
dad del programa. El programa 
«ideal» sería aquel en el que sólo exis- 
tieran subrutinas. 

Como esto no es posible, la progra- 
mación estructurada consiste en divi- 
dir el problema lo suficiente para que 
resulte fácilmente inteligible, sin crear 
una subrutina a cada línea de progra- 
ma. Es, en definitiva, vuestro buen jui- 
cio quien debe decidir sobre el número 
de subrutinas. 

PRESENTACION 
GENERAL DEL 
PROGRAMA 

Un programa estructurado debe rea- 
lizarse de la siguiente forma: Las pri- 
meras líneas deben contener unas 
cuantas sentencias REM que informen 
del contenido del programa, su autor, 
etc. 

A continuación deben tomar sus va- 
lores iniciales todas las variables que lo 
necesiten en el programa. Esto sustitu- 
ye a un listado de variables, y es tan útil 
como ese listado, sobre todo si se 
acompaña a cada variable de un breve 



comentario con una línea REM. 

DesrSués de las variables debemos 
incluir el programa principal, con las 
llamadas a subrutinas y todos los pro- 
cesos necesarios. Este programa prin- 
cipal debe ser lo suficientemente claro 
como para que sea fácilmente inteligi- 
ble por cualquier usuario. 

Al final del programa principal es 
conveniente situar las subrutinas utili- 
zadas por el mismo, y sólo al final del 
programa las líneas DATA que sean 
precisas. 

De esta forma se consigue un pro- 
grama elegante y funcional. Y os asegu- 
ramos una cosa. Se tarda menos en ha- 
cer un buen programa, estructurado y 
en el que se pueden localizar fácilmen- 
te los errores, que en corregir el amasi- 
jo de líneas resultante de una «inspira- 
ción». 

FINALMENTE 

Todos estos consejos, aderezados 
con muchas líneas REM, pueden per- 
mitiros conseguir el premio de nuestro 
concurso especial de verano. 

¡ Ah ! , por último. Las líneas de vues- 
tros programas es recomendable que 
no sean excesivamente largas. Esto fa- 
cilitará que sean fáciles de entender y 
modificables por otros usuarios. 

EXCEPCIONES 

Toda regla tiene su excepción, y la 
estructuración no es algo especial. 

Existen programas en que es muy 
importante la velocidad de ejecución. 
En este caso se suele prescindir de las 
reglas de estructuración para mantener 
la velocidad. Colocar las subrutinas al 
comienzo o hacer líneas muy largas son 
buenos consejos a la hora de conseguir 
una alta velocidad de ejecución. 

Prestad atención a las bases y reglas 
del concurso que os exponemos a con- 
tinuación. 

GRAN CONCURSO DE 
VERANO 

Decididos a hacer que programéis 
cada vez más y mejor, os proponemos 
un concurso de programación para 
este verano, que puede haceros recibir 
unos interesantes premios. 

Pero, ¿en qué consiste el concurso? 

Debéis realizar un programa, si- 
guiendo las normas y directrices que 
expondremos a continuación. Entre 
todos los programas recibidos se esco- 
gerá el que tenea una mejor realiza- 
ción, es decir, el que funcione mejor, 



sea más estructurado. En definitiva, el 
mejor programa. 

El jurado estará compuesto por el 
Departamento de Programación de 
MSX-Club, y sus decisiones serán ina- 
pelables. 

Si, sí, mucho pedir; pero ¿de pre- 
mios qué? 

El programa elegido vencedor entre 
todos los recibidos será publicado en 
nuestra revista y recibirá 15.000 ptas, 1 
lote de nuestros programas, y suscrip- 
ciones en nuestras revistas. Como veis, 
una interesante forma de pasar el vera- 
no. 

¿Explica va de qué va el juego! 

Tú bien lo has dicho. El programa 
que tenéis que realizar es un juego; 
pero no cualquier juego. 

El juego que debéis hacer es un jue- 
go laberíntico. En este juego debe exis- 
tir un mínimo de 10 pantallas diferen- 
tes, en las que existirán objetos. Estos 
objetos permiten el paso a pantallas su- 
cesivas, así como eliminar a los enemi- 
gos y peligros que acechan por nuestro 
camino. 

No hace falta que los enemigos sean 
móviles. Pueden ser pozos, trampas, 
etc. A vosotros os toca dar rienda suel- 
ta a vuestra imaginación. Pero recor- 
dad, debéis seguir, siempre que sea po- 
sible, todas las reglas de la programa- 
ción estructurada. 

¡Decidido! Me pongo inmediata- 
mente a programar. ¿Hasta cuándo 
tengo para enviaros el programa? 

Tenéis todo el verano para realizar 
vuestros programas. El plazo de recep- 
ción estará abierto hasta el 1 de octubre 
de 1987, y en el número de noviembre 
publicaremos el programa vencedor. 

Yo sigo preguntando. ¿Y si no 
gano? 

Aunque tu programa no sea el me- 
jor, puede ser considerado lo suficien- 
temente bueno como para ser publica- 
do en nuestra revista. Caso de ser pu- 
blicado recibiréis la compensación 
económica correspondiente al nuevo 
concurso de programas MSX-Club. 

¿Y cómo os envío el programa? 

Los programas que deseéis enviar a 
concurso deben remitirse a: 

CONCURSO DE VERANO 

Manhattan Transfer, S.A. 

RocaiBatUe, 10-12, bajos. 

08023 Barcelona (ESPAÑA) 

No olvidéis hacer notar claramente 
en el sobre "PARA EL CONCURSO 
DE VERANO". 

Los programas deben estar graba- 
dos en cinta de cassette o en disco de 3 
1/2 pulgadas. En este último caso el so- 
porte os será retornado, tanto si el pro- 
grama es aceptado como en caso de no 
serlo. 
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MSX por dentro 
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■Ronald Van GinkeL 



LA FUNCION 




Muchas veces hemos nombrado 
a la instrucción gráfica DRAW, 
pero como parece que no todos 
los lectores tienen clara su fun- 
ción, vamos a explicar el funcio- 
namiento de esta instrucción 
gráfica que es una de las más po- 
tentes que posee el MSX. 



Para empezar, hay que decir que 
la instrucción DRAW sólo se 
podrá utilizar en SCREEN 2 y 3 
(en los modos de gráficos, vaya). Su 
sintaxis sería: 

DRAW "instrucciones" 
Dichas instrucciones pueden ser: 
A(n) : Angle (ángulo) , sirve para gi- 
rar el sistema de referencia, n 
puede variar de 0 a 3 (origi- 
nalmente es 0), y su función 
es la de permitir que al decir- 
le que dibuje a la derecha nos 
dibuje arriba, abajo o incluso 
a la izquierda. 
B: Desplaza el punto actual 

pero sin dibujar. 
C(n) : Especifica el color con que se 
quiere dibujar, n puede valer 
de 0 a 15, y cada número co- 
rresponde a un color. Estos 
son: 

0- Transparente; 1- Negro; 
2- Verde; 3- Verde claro; 4- 
Azul; 5- Azul claro; 6- Rojo 
oscuro; 7- Azul celeste; 8- 
Rojo; 9- Rojo claro; 10- 
Amarillo; 11- Amarillo cla- 
ro; 12- Verde oscuro; 13- 
Fucsia (rosa oscuro); 14- 
Gris; 15- Blanco. 
D(n): Indica que el puntero baje n 
puntos. 

E(n): Indica que el puntero suba y 
vaya a la derecha (en diago- 
nal): 

F(n): Indica que el puntero baje y 
vaya a la derecha (en diago- 
nal). 

G(n): Indica que el puntero baje y 
vaya a la izquierda (en diago- 
nal). 

H(n): Indica que el puntero sube y 
vaya a la izquierda (en diago- 
nal). 

L(n): Indica que el puntero se des- 
place n puntos a la izquierda. 

M(x,y): Traza una recta desde la po- 
sición del puntero hasta las 
coordenadas x e y. 

M(+x-y):Desplaza el puntero "x" 
puntos (a la derecha si se 
pone un + delante y a la iz- 
quierda si se pone un - de- 




lante) e "y" puntos (hacia 
abajo si se pone un + delante 
y hacia arriba si se pone un - 
delante). 

N: Dibuja pero sin variar el pun- 

tero. 

R(n): Indica aue el puntero se des- 
place a la derecha n puntos. 

S(n): Varía la escala del dibujo, n 
puede valer de 0 a 255, ini- 
cialmente vale 4. Si no se va- 



concluye estas páginas. 



ría este valor, al indicarle que 
nos suba un punto, subirá 
uno, pero si le damos el valor 
12, nos subirá 3 puntos en 
vez de uno, si damos el valor 
252, subirá 64 puntos en vez 
de uno. Para saber cuál es la 
escala que adoptará, basta 
dividir n entre 4, con lo que 
nos dará la cantidad de pun- 
tos que se desplazará por 
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cada punto que le digamos 
que se desplace. 
U(n) : Indica que el puntero suba n 
puntos. 

Después de indicar los elementos 
que podemos usar, vamos a explicar 
los conceptos que en ellos han apareci- 
do. Para empezar, hay que decir que el 
ordenador simula a un lápiz colocado 
en un papel cuadriculado. El punto 
donde está la punta de este lápiz es lo 
que denominamos puntero. Cuando 
especificamos p.e. "R4", el puntero se 
desplazará cuatro "casillas" a la dere- 
cha, dibujando una línea a su paso. Es- 
tas casillas son los pixels de la pantalla, 
existiendo 256x192 en SCREEN 2. 
Cada pixel tiene una coordenada X y 
otra Y (horizontal -X, vertical-Y). 

Pasamos ahora a describir cada fun- 
ción con un ejemplo: 
10 SCREEN 2 "Pantalla de gráficos". 
20 DRAW"BM100,100U5" Nos sitúa 
en las coordenadas x=100 e 
y= 100, y una vez en este punto, nos 
dibuja 5 puntos hacia arriba. La B 
que hay en el inicio sirve para indi- 
carle que se mueva el puntero a la 
posición 100,100 sin dibujar nada. 
Si la omitiéramos, nos aparecería 
una línea desde el punto 0,0 hasta 
el 100,100. 



30 DRAW"BM50,60R5U10L5D20" 
Desde el pto. x=50 e y=60 nos di- 
buja 5 ptos. a la derecha, 10 ptos. 
hacia arriba, 15 ptos. hacia abajo y 
20 ptos. a la izquierda. 

40 DRAWBM150, 100R20D20L2- 
0U20R10G10F10E10H10" 'Des- 
de el pto. x= 150 e y= 100 nos dibu- 
ja 20 ptos. a la derecha, abajo, iz- 
quierda y arriba (un cuadrado de 
20x20), nos coloca en la mitad de 
la recta superior y nos traza una 
diagonal hacia abajo-izquierda, 
abajo-derecha, arriba-derecha y fi- 
nalmente una arriba-izquierda, 
creando un rombo dentro de un 
cuadrado. 

50 

DRAW"BM50,100M20,160MB0, 
160M50,100M-5,- 
10M+10,+OM-5,+ 10" 'Nos di- 
buja una recta desde el pto. 
(100,100) al pto. (20,160), y de este 
al pto. (80,160), y de este vuelve al 
original, creando así un triángulo. 
Después dibuja una recta 5 ptos. a 
la izquierda y 10 ptos. hacia arriba, 
de ahí desplaza 10 ptos. a la dere- 
cha v vuelve a su posición inicial, 
con lo que queda dibujado un pe- 
queño triángulo encima de uno 
grande. 

60 COLOR 10,1,1:CLS 'Borra la pan- 
talla. 



70 DRAW"BMl00,100AlR40A0" 
'Gira el sistema de referencia 90 
grados, con lo que la instrucción de 
trazar 40 ptos. a la derecha se trans- 
forma en 40 ptos. hacia arriba. El 
sentido del giro es contra las agujas 
del reloj. 

80 DRAWBM100, 50R20BR20C4- 
R20NU20ND20NL20NE8NF8N 
G8NH8" 'Traza una recta de 20 
ptos. a la derecha, después traza 
otra igual, pero sin dibujarla en 
pantalla (mediante la B), vuelve a 
trazar 20 ptos. a la derecha dibujan - 
dolos en pantalla, y desde el extre- 
mo de esta línea traza 7 líneas sin 
desplazar el puntero (mediante la 
N), 4 diagonales y 1 arriba, 1 abajo 
y 1 a la izquierda, dibujando así una 
estrella de color azul. 

90 DRAWBM200, 100S8U10S1- 
2L10S16D10S20R10" 'Variando la 
escala se trazan 4 líneas de distinta 
longitud. 




EN EL HUMERO 5 DE 



Estos son los ejemplos que se comentan 
go de este artículo. 



Después de estos ejemplos prácticos 
vamos a explicar el uso de bucles en la 
instrucción DRAW. Todos los datos 
que se incluyen dentro del DRAW 
pueden ser especificados mediante una 
variable, pero para ello hay que intro 
ducir un '='+la variable+';', veamos 
un ejemplo: 
10 COLOR 5,1,1 
20 SCREEN 2 

30 DRAW'BM 128,96" 'El puntero se 
puede prefijar en una línea aparte. 
40 FORI=lTO 192STEP8 
50 11=1+2:12=1+4:13=1+6 
60 DRAW"R=I;D=I1;L=I2;V=I3" 
70 NEXT 
80 GOTO 80. 

Este corto programa dibujará una 
espiral cuadrangular. El programa se 
limita a dibujar líneas, cada una 2 ptos. 
mayor que la anterior, de esta manera 
se logra un dibujo geométrico como 
esta espiral. 

Con lo aquí explicado ya debéis ser 
capaces de dibujar algo, ¡intentadlo! 
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Programa 



,Por J. Laínez S. B 



FROGGER 



Haz que la rana atraviese la 
carretera sin que sea atropella- 
da por el denso tráfico. Un jue- 
go sencillo pero muy divertido y 
un clásico ya en el mundo de los 
videojuegos. 




10 REM **************** 

0 REM * FROGGER * 

30 REM * by * 

40 REM * J. LAINEZ S. * 
50 REM **************** 
60 REM * <c> Lleida * 
70 REM * 1987 * 

80 REM **************** 
90 REM **FFE<0) =26629** 
100 REM *** INSTRUCCIONES *** 
110 KEY OFF : SCREEN 0:WIDTH 40: COLOR: 

15, lilsGOSUB 1230: LOCATE 15,1:PRIN 
T"THE FROG " 

120 FRINT: RRINT" Deves ayudar a la 
rana a llegar al otro lado de 

las pistas. Para hacerlo utiliza 
las teclas de cursor o un jo 

ystick a cualquier port. Cada vez 
que llegues se te darán 100 punt 

os y se te devolverá al lugar 

de origen. 

130 RRINT: PRINT" Si consigues hace 
r 5 viajes canviaras de nivel y o 
btendras 300 puntos extras. 

140 LOCATE Ui 18:PRINT"PULSA <SPACE 
>" : PLAYA* 



150 IF STRIG(0) T'HEN 160 EL5E 150 
160 REM *** INICIALIZACION *** 
170 HI=0:QPEN"GRP: "AS#1 
180 KEY OFF : COLOR 15,2,2: SCREEN 2,2 

P ® 

190 DATA 66,66,90,60,60,124,66,66 
200 DATA 0,231,24,56,56,24,231,0 
2 1 0 DATA 66,66, 1 24 , 60 , 60 ,90,66, 66 
220 DATA 0,231,56,60,60,56,231,0 
230 DATA 0,0,24,49,92,49,24,0 
240 DATA 0,0,0,0,39,64,64,64,64,64, 
39 , 0, 0^ 0, 0, 0,0* 0, 0»0¡i Üí 
116,0,0,0, 0 , 0 
250 DATA 0 ,0,56, 70 , 129, 0 , 0 , 0 , 0 , 0 , 0 , 
0,0,0,0,0,0, 12,26,31, 172,64,0,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0 

260 REM *** LECTURA DATAS *** 
270 RESTORE 190 
2S0 FOR A=0 TO 4 
290 Bí=" M 
300 FOR 1=1 TC 3 
310 READ B:B*-B*+CHR*<B> 
320 NEXT 1 

330 SPRITE*<A)=B*: COLOR r ,A 
340 NEXT A 
350 RESTORE 240 
360 FOR A=5 TO 6 
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J70 B*="" 

380 FOR 1=1 Tü 32 

390 READ B:B*=B*+CHR*(B) 

400 NEXT I 

410 SPRITE* (A) =B*: COLOR , ,A 
420 NEXT A 

430 REM *** DIBUJO PANTALLA *** 
440 LINE (0,20) -(255,60) , 14,BF:PI=3. 
14159 

450 LINE (0,70) -(255, 110) , 14, BF 
460 LINE(0, 120) -(255, 160) , 14, BF 
470 CIRCLE(20,2) , 15, 4, PI /4, 2*PI : CIR 
CLE<35,2> , 10,4,5*PI/4,2*PI:CIRCLE<4 
5,2) , 15,4,5*PI/-4,3*PI/4:PAINT(35,2> 
,4:CIRCLE(100,2) , 15, 4, PI/4, 7*PI/4: C 
IRCLE(115,2) , 15,4,5*PI/4,2*PI:CIRCL 
E(130,2) , 15,4,5*PI/4,PI/4:PAINT( 130 
,2) ,4:CIRCLE(180,2) ,20,4, , , . 5: PAINT 
(180,2) ,4 

4ffr COLfR 15sPSET(10, 170) , 1:PRINT#1 

HI: ";HI 
, 180) , 1:PRINT#1, "LIVES: 
LEVEL: 1 " 
500 N = 1 : SO0 : V»3 : NS=0 : X = 1 1 7 : Y- 1 62 : L 
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510 REM *** LOOP PRINCIPAL *** 
520 SPRITE ON 
530 ON SPRITE GÜSUB 940 
540 D*fttCK<*) OR STICK(l) OR STICK 
(2) 

550 IF D=i THEN Y»Y*-Sl NS-0: BEEP 
60 IF D=3 THEN X=X+8: NS=3: BEEP 



570 IF D=5 THEN 

80 
590 

00 



Y=Y+3:NS=2:BEEP 
IF D=7 THEN X=X-B: NS=1: 
IF X<0 THEN X=0 
IF X>247 THEN X=247 
610 IF Y<12 THEN GOSUB 1140 
620 PUT SPRITE 0,(X,Y),4,NS 
630 Q=L / 1 00 : G=G+7+0 : R=R+ 1 6+Q : F=F-7+ 
Q 

640 IF G>10000 THEN G=0:GOTO 630 
650 IF F> 10000 THEN F«0¿SOTQ 630 
660 IF R> 10000 THEN R=0:GOTO 630 
670 PUT SPRITE 1 , (252+R, 18) , 1 , 5 
680 PUT SPRITE 2, (0+G, 45) , 1 , 5 
690 PUT SPRITE 3, (200+R, 18) , 1 , 5 
700 PUT SPRITE 4, <25+G,45> , 1,5 
710 PUT SPRITE 5, (150+G,45> , 1,5 
720 PUT SPRITE 6, < 150+R, 18) . 1 , 5 
730 PUT SPRITE 7, (0+F, 30) , 1 , 5 
740 PUT SPRITE 8, ( 100+F, 30) , 1 , 5 
750 PUT SPRITE 9, (200+F, 30) , 1 , 5 
760 PUT SPRITE 10, (252+G, 69) , 1 , 5 
770 PUT SPRITE 1 1 , (200+G, 69) , 1 , 5 
780 PUT SPRITE 1 2, ( 150+G , 69) p 1 , 5 
790 PUT SPRITE 1 3, (0+F, 96) , 1 , 5 
800 PUT SPRITE 14, (55+F, 96) , 1 , 5 
810 PUT SPRITE 15, (150+F,96), 1,5 



820 PUT SPRITE 16, (0+G, 128) , 1 , 5 
830 PUT SPRITE 17, ( 100+G, 128) , 1 , 5 
840 PUT SPRITE 18, (200+G, 129) , 1 , 5 
850 IF L»>2 THEN PUT SPRITE 19, (0-G 
, 162) ,11,4 

860 IF L=>3 THEN PUT SPRITE 20, (255 
+G, 112) ,6,6 
870 IF L=>4 THEN PUT SPRITE 21, (255 
+R, 10) ,4,4 
880 IF L=>6 THEN PUT SPRITE 22, (200 
+G, 112) ,6, 6: PUT SPRITE 23, (100+G, 11 
2) ,6,6 

890 IF L=>8 THEN PUT SPRITE 24, (50- 
G, 162) , 11,4:PUT SPRITE 25,(100-G,16 
2), 11,4 

900 IF L=>10 THEN PUT SPRITE 26, (25 

+R,62) , 6,6 
910 IF L»>12 THEN PUT SPRITE 27, (20 
0+R,62) ,6,6:PUT SPRITE 28,(100+R,62 
) ,6,6 

920 IF L*>14 THEN PUT SPRITE 29, (2l 
0+R, 10) ,4,4:PUT SPRITE 30, (100+R,10 
) ,4, 4 



930 GOTO 540 
940 REM *** RANA ATROPELLADA «** 
950 SPRITE OFF : PLAYC* 
960 FOR 1=1 TO 5- 
970 FOR J*0 TO 3 
980 FOR K*l TO 15 
990 PUT SPRITE 0, (X,Y),6,J 
1000 NEXT K , J , I 

1010 V=V-1:PUT SPRITE 0,(0,209) 

1020 IF THEN 1060 

1030 LINE (10, 180) -(165, 190) ,2,BF:PS 

ET(10, 180) ,2¡PRINT#1, "LIVES: ";V 

1040 X=117: Y=162: X=X+10:PUT SPRITE 

0, (X, Y) ,4,0 

1050 SPRITE ON: RETURN 

1060 REM *** FINAL *** 

1070 SCREEN 0 

1080 COLOR 15,1,1:PLAY E* 

1090 IF SOHI THEN HI=SC 

1100 LOCATE 9, 12:PRINT"¿0TRA PARTID 

A (S/N) ?" 

1110 A*=INKEY* 

1120 IF A*="S" OR A*="s" THEN 180:P 

LAY A* ELSE IF A*="N" OR A*="n" THE 

N COLOR 15, 4, 4: SCREEN 0,0,1:KEY ON: 

PLAY E$: END 

1130 GOTO 1110 

1140 REM *** PUNTUACION *** 

1150 N=N+1:IF N=5 THEN N=1:L=L+1:SC 

SC+200:PLAY F*: Z=l 
1160 LINE (170, 180) -(255, 191) ,2,BF:P 
SET(170, 180) ,2:PRINT#1, "LEVEL: " ; L 
1170 IF PLAY(1)=-1 THEN 1170 
1180 PLAY D*:SC=SC+100:LINE<10, 170) 
-(170, 178) ,2,BF:PSET(10, 170) ,2:PRIN 
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Programa i 



T#l, "SCÜRE: " ;SC: X= 1 1 7 : Y- 1 62 : PUT 3PR 
I TE 0, (X, Y) ,2, IMS 

1190 IF Z THEN IF L=5 OR L=10 OR L== 
15 OR L=20 ÜR L=25 DR L«30 THEN l V=V 
+1:LINE<10, 180) -(165, 190) , 2, BF s PSET 
(10,1 80 ) , 2 : PR I NT# 1 , " L I VES : " ; V : PLAYV 
*: Z*0 

1200 IF PLAY<1)—1 THEN 1200 
1210 RETURN 

1220 REM *** PROGRAMA MUSICAL *** 
1230 A*-"L32Ü5S?M9000CEFADADCCAPDDE 



EEDGCCC0ÓCFGDDEFFFFDDCGGGADECDEAC05 
CCEGGGGG " 

1240 V$ ::: " L3205S 1 1 M900CDEFG " 

1250 E*="V15L8O3S14M250FFEEGGBAAEEG 

GFFCEGFEDC" 

1260 C*="o3S14M25CCC" 

1 270 D*= " S9M 1 000O6L 1 6CEGGEC " 

1 280 F*= "L16S1 4M2504CDE05CDE04CDEG5 

CDE04CDE05CDE06CDECDE07CDECDEGBÜDEC 

DE" 

1290 RETURN 






Test de listadoi 



TEST DE LISTADOS. Para usar e 
pondiente publicado en nuestro nú 


1 Test d 
mero 7 c 


; Listado q 
leí mes de 


ue publ 
noviem 


camos al fu 
>re, pág. 28 


ial de c 


ada prograi 


na debe c 


argarse e 


program 


i corres- 1 


10 


- 0 


200 


-230 


390 


-215 


580 


- 48 


770 




960 


-187 


1 1 50 


~ 1 70 


20 


- 0 


210 


- 52 


400 


-204 


590 




780 


-239 


970 


-185 


1160 


-195 


30 


- 0 


220 


-230 


410 


- 98 


600 


-254 


790 


-118 


980 


-197 


1170 


- 32 


40 


- 0 


230 


- 89 


420 


-196 


610 


-220 


800 


-172 


990 


-158 


1180 


-21S 


50 


- 0 


240 


- 76 


430 


- 0 


620 


-243 


810 


- 12 


1000 


-185 


1190 


- 60 


60 


- 0 


250 


-249 


440 


- 16 


630 


- 21 


820 


-154 


1010 


-254 


1200 


- 62 


70 


- 0 


260 


- 0 


450 


-137 


640 


-125 


830 




1020 


-228 


1 2 1 0 


-142 


80 


- 0 


270 


- 88 


460 




650 


-123 


840 


- 99 


1030 


- 61 


1220 


- 0 


90 


- 0 


280 


-177 


470 


-116 


660 


-147 


850 


-104 


1040 


-126 


1230 


-163 


100 


- 0 


290 


-153 


480 


-177 


670 


- 36 


860 


- 51 


1 050 


- 36 


1240 


-214 


110 


-156 


300 


- 1 90 


490 


-156 


680 


- 59 


870 


-214 


1060 


- 0 


1250 


-231 


1 20 


- 71 


310 


-215 


500 


- 76 


690 


-242 


880 


- 52 


1070 


-214 


1260 


-113 


130 


-193 


320 


-204 • 


510* 


- 0 


700 


- 84 


890 


- 12 


1080 


-187 


1270 


- 11 


140 


- 25 


330 


- 93 


520 


- 92 


710 


-210 


900 


- 23 


1090 


-144 


1280 


-243 


150 


- 23 


340 


-196 


530 


-166 


720 


-195 


910 


-244 


1100 


-139 


1290 


-142 


160 


- 0 


350 


-138 


540 


- 45 


730 


- 48 


920 


-138 


1110 


- 64 






170 


-171 


360 


-184 


550 


- 43 


740 


-147 


930 


-181 


1 120 


- 20 






180 


-216 


370 


-153 


560 


- 45 


750 


-248 


940 


- 0 


1130 


-241 


TOTAL: 


190 


- 52 


380 


-180 


570 


- 48 


760 


- 83 


950 


- 20 


1140 


- 0 


15171 

























■Por Antonio Sanchís^ 



DICTADO 
MUSICAL 



mmmmmmm 



DICTADO MUSICAL 
Antonio Sanchís 



lfff 

1001 

1002 
1003 
1004 
1005 
1006 

1007 ' mmtmtmtmm 

100B » 

1020 C0L0R3, 1, 1:KEY0FF:CLS 

1030 6OSUB1410 

1040 PLAY"T120L24v8 

1050 LINE(2,2)-(253,190),15,B 

1060 FORQ=0TQB0STEP.4:PÜTSPRITE0. (119, 

Q),8,l:NEXT:PLAY'o5c 

1070 F0RN»1T0135STEP. 4: PUTSPRITE1 . (H. 8 

0>,2,2:NEXT:PLAY"c4g 

1080 FDRE=239TO103STEP-.4:PUTSPRITE2. 1 

E,80),4,0:NEXT:PLAY'c 

1090 FORR=1TO1270:NEXT 

1100 COLORI, 15, 14: CLEAR 

1110 6OSUB1410 

1120 M 

1130 FORN=0TO6.28318STEP.2 
1140 Z=Z+2 

1150 CIRCLE(128,72),Z.0,O,N 
1160 NEXT 

1170 LINE(100,77)-(153,100),1,BF 
1180 PUTSPRITE0, (103,80) , 15: PUTSPRITE1 
, (119,80). 15:PUTSPRITE2,<135,80), 15 
1190 8=120 

1200 FQRK=0TQ4:LINE(0,Q)-(255,Q),1 
1210 0=Q+4:NEXT 
1220 PLAY n L12o3go4dfgbo5dL24 
1230 IFPLAY(1)=0THEN1240ELSE1230 
1240 LINE(100,77)-(153,100),15,BF 
1250 FORE=B0TO120STEP.4:PUTSPRITE0. (10 
3,E),l,0:NEXT:PLAY*a- 
1260 FORF=80TO120STEP.4:PUTSPRITE1, (11 
9,F),l,l:NEXT:PLAY"f 
1270 FOR6=B0TO120STEP.4 
5,B),l,2:NEXT:PLAY < o4b 
1280 0PEN'GRP:'AS1 
1290 FOR(MTQ1270:NEXT 
1300 DRAWbH2,139cl 
9r212d2r2fi 



Los amantes del solfeo en- 
contrarán en este programa un 
inmejorable ejercicio musical. 
El programa realiza tests de sol- 
feo, e incluso cuenta con un te- 
clado musical para entrar las no- 
tas. 



fV í 



r 



•% i 



1310 PSET(17,128),15:PSET(16.12B),15:P 
RESET(20,120):PRINT#i,".':PRESETí20,12 
5):PRINTtl,'.':PSET(20.120),l:PRESET<3 
0,121):PRINTI1,'2":PRESET(30,130):PRIN 
Til, '4' 

1320 PLAY"T120L16v8VT120L16v7' 

1330 0$= B v7o6cv5co5v7cv5cv7dv5dv8e-e-v 

7e-v6e-v7fR16gR16o4a-P16R16R16o5fR16o4 

gR16R16R16o5e-R16o4fR16R16R16o5dR16o4e 

-R16R16R16R16P16o5co4bo5cdo4bagR16R16R 

16 

1340 T$='R16R16R16R16R16R16v7o5cv6co4v 

7cv6cv7dv6dv8e-R16R16R16fR16dR16R16R16 

e-R16cR16R16P16dR16o3bR16R16R16o4cF.16o 

3a-R16fR16dR16gR16R16o4vBfe«d 

1350 PLAYO!, T$ 

1360 0$= , v7o6cv5co5v7cv5cv7dv5dv8e-e-v 

7e-v6e-v7fR16gR16o4a-R16R16R16o5fR16o4 

gR16R16R16o5e-R16o4fR16R16R16o5dR16o4e 

-R16R16R16R16o5co4dfo5co4bo5ccv7cv6c 

1370 T$='o4cR16R16R16R16R16v7o5cv6co4v 

7cv6cv7dv6dv7e-R16R16R16fR16dR16R16R16 

e-R16cR16R16R16dR16o3bR16R16R16o4cR16o 

3a-R16fR16gR16cRl6o2gR16e-R16ccv7cv6c 



1380 PLAYOS. T$ 

1390 CLOSE:FORR=1TO3000:NEXT 
1400 6OTO1510 
1410 SCREEN2, 1 

1420 REM 

REH 

1430 REH Definir Sprites 
REM 

1440 REH 



1450 FORY=0TO2:A$*":FORX=ITO8:READA:A 

$=A$*CHRKA):NEXTX:SPRITE$<Y)=A$:NEXTY 

1460 DATA 102,102,102,102,219,219,219, 

219,127.255,192,254,127,3.255,254,193, 

227,119,62,28,62,119,99 

1470 RETURN 

1480 CLS 

1490 FORZ=1TO10:PRINT'KEY ";:PRINTUSIN 

G'l# , ;Z;:PRINT',';CHR$(34);SPACEf(6);C 

HR$(34);'+CHR$(':PRINT:NEXT 

1500 END 

1510 GOSUB2210 

1520 CLS:C0L0R12,14,3 

1530 PRINT: PRINT: PRINT: PRINT" , 

NQH , ': PRINT: PRINT' 
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Programa — 



DICTADO MUSIC 







m 

1540 L0CATE3,4:PRINT"| 
AL I 

1550 LOCATEÍJ. 7: PRINT 

1560 PRINT" ; 

Y 

1570 PRINT" |";SPACEt(26);" I":PRINT" I"; 
SPACEí (26) ; " I " : PRI NT" I ' ; SPACE$(2¿) ; " |" 
: PRINT" |";SPACE$(26);" l":PRINT" |";SPAC 
E$(26);"| 

1580 PRINT" |";SPACE$(26);" |":PRINT" !"; 
SPACES (26) ; " ! " : PRINT" |" ; SPACE* (26) ; " |" 
:PRINT" |";SPACE$(26); " I": PRINT" (";SPAC 
E$(26);"¡":PRINT"¡";SPACE$(26);"| 

1590 PRINT"' 

[ 

1600 L0CATE2,":PRINT"Fi = Notas Preli 
«mares ':L0CATE2,11:PRINT"F2 = Codifi 
cador ASC II " : LDCATE2, 13:PRINT"F3 = 
Definición de Nivel 

1610 L0CATE2,l5:PRINT"F4 = Redefint. F 
un. Keys ":L0CATE2, 17:PRINT"F5 = Direc 
tanente a Test ":L0CATE2, 19:PF:INT"F6 = 
Dictado de Acordes 
1620 F0RK=1T08:KEY(K)0N:NEXT 
1630 ONKEY6OSUB1650, 1670,2290,2590,742 
0,5850.1510 

1640 IFINKEY$=""THEN1640 
1650 CLS:SCREEN0:COLOR1,14 
1660 GOTO1890 

1670 CLS:5CREEN0:COLOR4,14 

1680 LOCATE10, I:PRINT-CQDIFICADOR ASCI 

I 

1690 LOCATE?, 2: PRINT" 



1700 PRINT:PRIN T " r 

m \'\ 

171? PRINT" lEsriba la";CHR$(32) ;CHR$!3 
4);"frase";CHRf(34);CHR$í32);"que dése 
e codifi- |-;:PF.INT" ¡car. M ; 
1720 PRINT'Cada nueero supone uno de 
los :PRINT" 1N lugares que definen la 
anchura de !";: PRINT" luna linea: (MIDT 
H N). En tanto no I"; :PRINT" !se le in 
dique otra cosa, el ordena- 1 " ; : PRINT" | 
dor asuiirá que el valor de N es i-1"; 
173Í PRINT' Iqual a 37. 

n 

1740 PRINT" ' 



1750 LOCATE0, 14: PRINT" 1234567B90123456 
789012345678901234567 

1760 PRUT" 

HQW 

1770 LOCATE0,15 
1780 LINEINPUT2$ 
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1790 PRINT: PRINT" 

KQH 

1800 PRINT".... data";CHR.*(32); 
1810 IFLEN(Z$)>37THEN1830ELSE 
1820 FQRN=1TOLEN(Z$):6OTO1840 
1830 F0RN=1T037 

1840 PRINTUSIN6"llf;ASC(HID$(Z$,N,D) 
;:PRINTCHR$(44); 

1850 REM PRINTMD*(Z$,N,i);CHRt(32):CH 
Rf(32);CHR$(61);CHK$(32);ASC(HID$(Z$,N 
,1)), 
1861 NEXT 

1870 PFINT:PP.INT:PPINT 
1880 END 

1890 F0RQ=iT037:READf1:PPINTCHF$(N); 
\m FOF;P=1TO40:NEXTP:NEXTO 
1910 PRINT 

1920 F0RQ-1T0259: READN: PRINTCHRS ( N) ; 
1930 POPR=1TD40: NEXTR: NEXTQ 
1940 PRINT 

1950 F0RS=1T0222:READ0:PRINTCHR$(0) : 
1960 FORT=1TO40:NEXTT:NEXTS 
1970 PRINT 

1980 F0RU=1T014B:READP:PRINTCHR$(P); 

1990 FORH=iTO*0:NEXTW:NEXTU 

2000 L0CATEll,22:PRINT"Pulse una tecla 

2010 IFINKEY$=""THEN2010 

2020 DATA 32,32,32,32,32,32,32.32,32.7 

8, 79,84, 65, 83, 32, 32,80,82,69,76,73,77, 

73,78,65,82,69,83,32,32,32,32,32,32,32 

,32,32 

2030 DATA 45,32,77,105,32,97,103,114,9 
7, 100,101, 99, 105, 109, 105,101, 110, 116,1 

II, 32,97,32,69,115,116,101,98,160.110. 
32,70,101,114,108,111,45,32 

2040 DATA 115,105,111,32,112.111,114,3 

2,111,102,114,101,99,101,114,109,101,4 

4.32,100,101,115,100,101.32,108,97,115 

,32,112,160,103,105,110,97,115,32 

2050 DATA 100,101,32,32,77,83,88,45,69 

,88.84,82,65,44,32,117,110.32,109,130, 

116,111,100,111,44,32,109,117.121,32,9 

9,111,109,111,100,111,32 

2060 DATA 97,108.32,116,105,101,109,11 

2,111,32,113,117,101,32,101,108,101,10 

3,97,110,1», 101, 44. 32, 100, 101, 32, 101, 

118,105,116,97,114,32,108,97,32 

2070 DATA 101,100,105,99,105,111,110,3 

2,101,110,32,112,97,110,116,97,108,108 

,97,32,100,101,108,32,115,105,103,110, 

III, 32,100,101,32,105,110,45,32 

2080 DATA 116,101,114,114,111,103,97,9 

9,105.111,110,32,32,101,110,32,118,111 

,115,32,99,111,109,97,110,100,111,115, 

32,32,73,78,80,85,84,44,32 

2090 DATA 116,97,110,32,109,111,108,10 



I, 115,116,111,32,111,99,97,115,105,111 
,110.97,108,109,101,110,116,101,46,32, 
32,32,32,32,32,32,32,32,32 

2100 DATA 45,32,77,105,32,97,103,114,9 
7,100,101,99,105,109,105,101,110,116,1 

II, 32,116,97,109,98,105,130,110,32,97, 
108,44,32,112,97,114,97,32 

2110 DATA 109,161,32,100,101,115,99,11 

1,110,111,99,105,100,111,44,32,97,117, 

116,111,114,32,100,101,32,117,110,32,1 

12,114,111.103,114,97,109,97,32 

2120 DATA 100.101,108,32,113,117,101,3 

2,115,111,108,111,32,115,130,32,113,11 

7,101,32,102,117,130,32,112,117,98,108 

,105,99,97,100,111,32,101,110,32 

2130 DATA 83,85,80,69,82,45,74,85,69,7 

1,79,83,32,77,83,88,59,32,100,101,108, 

32,99,117,97,108,32,104,101,32,116,111 

,109,97,100,111,32 

2140 DATA 101,110,32,112,114.130,115,1 

16,97,109,111,32,108,97,115,32,100,105 

,114,101,99,116,114,105,99,101,115,32, 

32,98,160,115,105,99,97,115,32 

2150 DATA 100,101,32,115,117,32,109,11 

1,100,101,108,111,32,100,101,32,116,10 

1,99,108,97,100,111,46,32,32,32.32,32, 

32,32,32,32,32,32,32,32 

2160 DATA 45,32,80,111,114,32,117,108, 

116,105,109,111,44,32,97.103,114,97,10 

0,101,99,101,114,32,97,108,32,97,117,1 

16,111,114,32,100,101,108,32 

2170 DATA 108,105,98,114.111,32,34,77, 

83, 88,45, 71, 114, 160, 102, 105,99,111, 115 

,32,121,32,115,111,110,105,100,111,34, 

32,40,68,65,84,65,45,32 

2180 DATA 66,69,67,75,69,82.41,44,32,3 

2,115,117,115,32,118,97,108,105,111,11 

5,111,115,32,99,111,110,115,101,106,11 

1,115,32,121,32,101,45,32 

2190 DATA 106,101,109,112,108,111,115, 

46,32,32,32,32,32,32,32,32,32,32,32,32 

,32,32,32,32,32,32,32,32,32,32,32,32,3 

2,32,32,32,32 

2200 SCREEN1: GOTO 1520 

2210 CLS:SCREEN1:C0L0R4,7,5 

2220 L0CATE7,8:PRINT"ÜICTAD0 MUSICAL 

2230 L0CATE6,9:PRINT" 



2240 L0CATE9.11:PRINT"escrito por 
2250 L0CATE1, 13:PRINT-Antonio Vte. San 
chis Girbés 

2260 LOCATE0,15:PRINT" 

HQW 

2270 FORZ=1TO2000:NEXT 

2280 BEEP : RETURN 

2290 CLS: COLOR 14, 1,3 

2300 PRINT:PRINT"-> Define ud. el nive 



1 de di-'sPRINT'ficultad, S/N ? 

2310 Q$=INKEY$ 

2320 IFQ$=CHR$ ( B3) ORQI=CHR$ ( 1 15) THEN23 
50 

2330 IFQ$=CHR$ ( 78) ORQ$=CHR$ ( 1 10) THEN25 
80 

2340 GOTO2310 

2350 BEEP:CLS:C0L0R1, 14: SCREEN0: LI5T33 
50-3490 

2360 CLS:COLORi,l,l 

2370 SOTO2580 

2380 F0RK=1T08: KEY (K) OFF: NEXT 

2390 KEY(1)ON:ONKEYGOSÜB3290 

2400 PLAY"T120L16',"T120L16" 

2410 PLAY"o5eco4go5cecfcfcfcgcgcgcacac 
acgcgcgcfedefdedcdecdedco4baggv7ggo5gg 
", , o3ccv7cco4ccv8o3ddv7ddo4ccv8o3eev7e 
eo4ccv8o3ffv7ffo4ccv8o3eev7eeo4ccv8o3d 
dv7ddbbv8ccv7ccv8o4ccv7ccvBo3bagabgdgb 
9 

2420 PLAY , vBo4aav7aao5ggo4v8bbv7bbo5gg 

v8ccv7ccggv8o4bbv7bbo5ggv8o4aav7aao5f+ 

f+v8o4ggv7ggv8o5ggv7ggv8fedefdo4ao5dfd 

", l, o4co3go4co3go4co3go4do3go4do3go4do3 

go4eo3go4eo3go4eo3go4do3go4do3go4do3go 

4co3babo4co3abagabgab-agfeddv7ddo4dd 

2430 PLAY"o5gdgdgdadadadv7b-v8dv7b-v8d 

v7b-v8dadadadgfefgefedefdefedco4baav7a 

ao5aaVv8o3eev7eeo4ddv8o3Hv7ffo4ddvB 

o3ggv?ggo4ddv8o3ffv7Ho4ddv8o3eev7eeo4 

c+c+v8o3ddv7ddo4v8ddv7ddv8co3babo4co3a 

eao4co3a 

2440 PLAY\8o4bbv7bbo5aav8ccv7ccaav8dd 
v7ddaav8ccv7ccaav8o4bbv?bbo5g+g+", "o4d 
o3ao4do3ao4do3ao4eo3ao4eo3ao4eo3ao4fo3 
ao4fc3ao4fo3ao4eo3ao4eo3ao4eo3ao4dco3b 
o4cdo3b 

2450 PLAY"v8o4aav7aav8o5aav7aaggf+f+gg 
o4ggv8o5ggv7ggffeev8fede*dg*f+ef+g+eag 
♦abagf+edef+dVo4co3babo4co3ao4d+c+o3 
bo4c+d+o3bo4ed+ef+edc+o3babo4c+o3ao4dd 
O3ddo4ddv7ddv8cco3bbo4cco3cco4ccv7ccv8 
o3bbaa 

2460 PLAY"o5ggo4v7ggo5v8ggv7ggfteev8H 
o4v7fív8o5ffv7Heeddv8edcdecf+edef+dgf 
/gagfedcdeco4ffv7Ho5ff"."bagabgo4c+o3 
babo4c+o3ao4dc+dedco3bagabgo4cco3cco4c 
cv7ccv8o3b-b-aab-b-o2b-b-o3b-b-v7b-b-a 
aggv8afcfaf 

2470 PLAY"v8o4ggv7ggo5ffv8o4aav7aao5H 
v8c4b-b-v7b-b-c5ffv8o4aav7aao5Hv8o4gg 
v7ggo5eev8o4ffv7ffv8o5ffv7ffv8edcdY° 
-fb-fb-fo4co3fo4co3fo4co3*o4do3fo4do3f 
o4do3fo4co3fo4co3fo4co3fb-agab-gagfgaf 
gagfed 

2480 PLAY"o5eco4go5ceckfcfcgcgcgcacac 
acgcgcgcfedefdedcdecdedco4babgrl6grl6g 
Vo3ccv7cco4vBcco3ddv7ddo4v8cco3eev7e 
eo4v8cco3Hv7ffo4v8cco3eev7eeo4v8cco3d 




dv7ddbbv8ccv7cco.4cco3v8ffeeddggo4Hdd 
2490 PLAY"bgrl6grl6go5co4grl6grl6gc5co 
4grl6grl6go5fo4grlógrl6go5ío4grl6grl6g 
a5ec4gr!6grl6g" , "c3ggo4f f ddo3ggo4eecco 
3ggo4eecco3ggc4ddc3bbggo4ddo3bbggo4eec 
c 

2500 PLAY"o5eo4gr 16gr 16gc5í+o4gr légr 16 
go5f+o4grl6grl6go5go4brl6brlób Ve:ggo 
4eecco3ggo4e-e-cco3ggo4e-e-cco3ggo4ddo 
3bb 

2510 PLAY"o5go4brl6brl6bo5gcrl6o4grl6c 
5cr!6erl6grlóab-agfede*gb-agadrl6o4frl 
6a", 'Ho4ddo3bbeeo4eecco3ggeeddc+c+Bea 
ac4c+c+eeggífddc3aa 

2520 PLAY"rl6o5drí6frl6ga-gíe-dcde-fa- 
gfgcrl6e-rl6crl6o4a-rl6frl6o5drl6c4grl 
6e-rl6o5crl6o4a-rl6frl6do3gbrl6grl6g", 
■ffddcco2bbo3ddggbbo4ddHe-e-cco3a-a-f 
fo4ddo3bbe-e-o4cco3a-a-ffddo2bbggo3Hd 
d 

2530 PLAVbgr 16gr 16go4co3gr 1 6gr 16go4co 
3gr 16gr l6go4f o3gr 1 6gr 1 6go4f o3gr 1 6gr 16g 
o4eo3gr 16gr 16go4eo3gr 16gr 16go4f +o3ar 16 
arl6ao4f*o3arl6arl6a', , ggo3ffddo2ggo3e 

ecco2ggo3eecco2ggo3ddbbo2ggo3ddbbo2ggo 
3eecco2ggo3eecco2ggo3e-e-cco2ggo3e-e-c 
c 

2540 PLAY"o2gbo3dfa-bo4ce-'+ao5ce-o4bo 
5dfdo4bgfdo3bgbo4dego5co4geco3af*e-ce- 
f+o2go4eco3geco2go3dfgbo4deft*gbo5d",' 

rl6rl6rl6rl6rl6rl6rl6rl6rl6rl6M6rl6o2 
V7ggrl6rl6rl6rl6rl6rt6rl6rl6rl6rl6c3gg 
2550 GOTO2410 

2560 FORZ=7TO0STEP- 1 : B*=CHR$ (118) +STRI 
(Z):PLAYB$:FORT=1TO200:NEXTT:NEXTZ 
2570 IFPLAY(0)=0THEN3290ELSE2570 
2580 SCREEN0.0.0 



2590 CLS:SCREEN0:COLOR3,1 

2600 PRINT'Si desea redefinir las ted 

as de fun-":PRINT"::on de acuerdo con 

la tabla pulse: R 

2610 PRINT-Si no, pulse: N 

2620 PRINT: PRINT" 

m 

2630 PRINT 

2640 PRINT" Fl"+CKR${32)+CHRt(ii:+CHF$ 
(32) *CHF:$ (34) ; "PLAY**CHR$ !34- ; '+CHR$(3 
4) 

2650 PRINT" F2'+CHR$(32)*CHR$'6!/*CHP$ 
(32)+CHR$i34);"KEY0FF";CHR$':4):"+CHR$ 
(13) 

2660 PRINT" F3 , *CHR$(32}*CHR${4U*CHM 
(32)*CHR$(34);' KEYON" ; CHRt (34 * : -*CHR« 
(13) 

2670 PRINT" F4"*CHFr32)*CHP$;¿l)*CHP$ 

'!2'+CHR$(34);" LIST »jCHR4<34) 

2680 PRINT" F5"*CHR$(32KHP$<'61)+CHR$ 

(32)+CHR$(34);"RUN "¡CHR$(34) 

2690 PPINT" F6"+rm(32)+CHfit(¿U+CHtt 

(32) fCHftl (34) ; "csave" ; CHP.t (34) : e +CHR$ ( 

34) 

2700 PPINT" F7 " ♦CHPi ( 32 ) +CHRS (61) *CHP t 
(32)+CHR*(34);"clcad r +CHR$í34!;'*CHRI( 
34) 

2710 PPINT" F3"*CHF$(32)*CHR$(ói;+CHFI 
(32)+CHR$(34);" chr$";CHR$(34) - 
2720 PPINT" F9"*CHR$(32)+CHF$(il)*CHR$ 
Í32>*CHR$ (34) ; "?asc í ";CHR$ (34) ; -*CHF$ í 

2730 PRINT" Flf*CWl$(Al)+Clffl$(32)+€Hf 
$(34);"ipnr,t":CHR$(34):"*CHR$!34) 

2740 LDCATE0,2I:PFINT" 

WQW 

2750 F$=INKEYs 

2760 IFF$="N"OR c $="n"THEN2790 

2770 IFF$="R"OPF$="r"THEN2800 

2780 GOTO2750 

2790 BEEF:GOTC2810 

2800 GOSUB4740 

2810 CLS:SCREEN0:COLOF;14,1 

2820 LINEINPUT"- Noubre: ";I$ 

2830 PPINT: PPINT: BEEP 

2840 LINEINPUT"- Puntos acunulaícs: 

J$ 

2850 PRINT: PRINT: BEEP 
2860 LINEINPUT"- Test n°: °;K$ 
2870 PRINT: PRINT: BEEP 
2880 F0RA=lT04:PRINT:NEn:PRINT»Co*pru 
ebe que los datos no contienen":PRINT: 
PRINT'errores. Si está ccnforie oulse: 
1 ; 

2890 PF;INT:PRINT"en caso contrario pul 
se: 0, e intro-':PRINT:PRINT'duzcalos 
nuevamente. 

2900 LOCATE0, 21: PRINT" 

WQW 
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Programa 



2911 PCKEItHFDEl,tHC3 
2920 P0KE*HFDE2,fcHD2 
2930 P0KEItHFDE3,?tH23 
2940 POKE&HFDE0,iHFl 
2950 L0CATE21, 19 
2960 Y$=INPUT$(1) 
2970 IFV$=CHR$(49)THEN2990 
2°80 IFY$=CHR$(4B)THEN28!0 
2?'? C0L0R5 

3000 FQPA=lTu300:NEXT:FORB=lTO3:BEEP:F 

ORC=i T O300:NEXTC:NEXTB 

3010 F0RD=lTC4:PRINT:NEXT:PRINPPor fa 

ve, espeje. Sus datos se están":PRINT 

:PRINT"pr:cesando. GRACIAS. 

3020 PRINT: PRINT: PRINT " 

NQU 



3030 FORE=1TO1400:NEXT:BEEP 
3040 CLS: C0L0R3 
3050 REM 

30Ó0 PRINT:PRINT"-Sieicpre antes ds una 
pregunte escu- 

30 7 0 PRINTVhareaos el " í CKR$ ( 32) ; CHR$ í 
341 ; -La 440';CHR$(34)5CHR$'32);'co(iio r 
eterencia. 

3080 FMN7"-Si ud. n 0 redefire el ni\ 
el de di- 

30°0 FRINT-ncultad, se trabijtrá unic 
aiente en 

3100 F-PINT-oi- ámbito de 1c que para e 
1 crtíena- 

3110 PRINT" jor constituye la octava n2 
4 ( ), y 

3120 mWU* respuestas constarán, 
inviria- 

3130 PRINT"blemente, de seis caractere 
s. 

3140 PPINT:PFINT"-Escucha usted el Pr 
eludió nS 3 del 

3150 PRINT-vol.I de";CHR$(32);CHF.$<34 
);"EL CLAVE BIEN TEMPERADO' ; CHR$ ( 34 >; C 
HR$(44) 

3160 PRINT"de J.S.BACH; lo escucha en 
Do Mayor; 

3170 PRINT-naturalnente 5n";CHR$(32) : 

CHR$(34);"E1 clave bién tei- 

3180 PRINT"perado";CHRI(34);CHR$(32>;" 

le corresponde Do sostenido 

3190 PRINT-Hayor. Usted lo escucha';CH 

R$(32);CHR*(32);CHR$(171);CHR$(32);"to 

no bajo 

3200 PRINT"por la evidente conodidad q 
ue supone 

™ Me ° e5a tonsl 

3220 PRINTVo, curiosaiiente, parece qu 
e fué és- 

3230 PRINT" ta la tonalidad original, y 



que pos- 

3240 PRINT-tenoraente BACH lo escnbi 
c en Do i 

3250 PPINT'para incluirlo en esa coló 
sal obra. # 
3260 PRINT"_ CUANDO 5USTE COMENZAR P'J 
LSE Fl _ 

3270 REM 
3280 6QTO2380 

3290 CLS:CQL0R14,1,1:PRINT" Ok":PPINT: 
PRINT' Ur. aoiento por favor ...": PRINT 

: PRINT" 

3300 FORY=7TO0STEP- 1 : B$=CHR$ ( 1 18) +STF:$ 

(Y):PLAYB$:FORZ=1TO200:NEXTZ:NEX.TY 

3310 STOPON:ONSTOP6QSUB4700 

3320 DIMPIOT<8,2),MT<30) 

3330 C0L0R4, 14,14 

3340 CLS:IFNC=3THEN4040 

3350 REM variables para Nivel N 

3360 REM 

3370 REM Probablesente necesite 
evaluar nás ordenes de 
las que ahora tiene en 
pantalLa. 

3380 REM 

3390 A=RND(-TINE) 

3400 X=INT(RND(l)t8)*l 

3410 Y=INT(F:ND(1)*8) + 1 

3420 Z*INT!RND(l)tB)*l 

3430 g=INT'RND(l)»S)+l 

3440 W=INT(RND(l)t8)*l 

3450 E=INTíRNDd)í8) + l 

3460 P$="ab-bcc*de-e<f+gg+ 

3470 IFQ>2THENM$=MID$(P$,X,2)ELSEM$=MI 

D$(P*,X,1) 

3480 IFW>2THENN$=MID$(P$. Y.2:-ELSEN$=MI 
Dl( D $,Y,l) 

3490 IFE>2THEN0$=MID$(PÍ,Z,2)ELSE0$=MI 
D$(PS,Z,1) 

3500 IFLEFTS (Mi, 1 ) =CHR$ l 43) 0RLEFT$ (M$, 
1 ) =CHR$ (45) THENMt=" • : BEEP: 5OTO3400 
3510 mffll* CMS, 1) =LEFT$if!$, 1 ) THENM$= 
"":BEEP:5OTO3400 

3520 IFLEFT* ( N$, 1 1 =CHR$ ( 43 ) ORLEFT* ( N$ , 
1 ) =CHR$ (45) THENN*=" : BEEP: EOTO3410 
3530 IFRIGHT$(N$, 1)=LEFT$(N$, 1)THENM$= 
M ":BEEP:BOTO3410 

3540 IFLEFT$ < 0$, i > =CHR$ ( 43 ) ORLEFTf ( 0$, 

1 ) =CHR$ (45) THENOI = ■ ' : BEEP: GOTC3420 

3550 IFRIGHT$(0$.1)=LEFT$Í0$,1)THENM$= 

"":BEEP:GQTO3420 

3560 J=VAL(J$):K=VAL(K$) 

3570 PRINT"- Noibre: ";: PRINTI$: PRINT 

3580 PRINT"- Puntos acumulados: "; >NN: 

PRINT 

3590 PRINT"- Test n2: ";K^NK; : PRINT" 
B ;:PRINT"Pregunta n2:';NC+l 



3600 PRINT: PRINT" 

WQW 

3610 IFPLAY(0)=0THEN3620ELSE3él0 

3620 PLAY lt o4aa 

3630 FORH=1TO1270:NEXT 

3640 PLAYfIS: PLAYN$: PLAYOS 

3650 LOCATE20, 2: PRIMTJ+NN 

3660 LCCATE0,B 

3670 PfINT"Qué notas han sonado ? 

3690 PRINT" 

3690 LOCATE0,l¿:! i RINT H H : Repite notas 
. Pierde ";CHF;$C71>;" punto. ":PRINT"- 

HQN 

3700 LOCATE0,13:PF;INT"K : Uso del teci 

ado.":PPINT" 

3710 LGCA T E0.2e:"INT"L : Respuesta di 
recta: ab-bcc+de-eff+ 

3720 LOCATE0,:i:PFINT" 

HQW 

3730 T$= INKEYS 

3740 IFT$="L n CRT$="l'THEN3790 
3750 IFT$="K"CF T $="!"THEN4850 
3760 IFT*="H"ORT$="h"THEN3730 

3770 Gr33"30 

3780 nr=nr+i:go t :jz:? 

3790 POKE! t HFDE0,iHC9 
3800 L0CATE21.S 
3810 IN D 'JTA$ 

3820 IFA$=M$+N$+O$THE^830ELSE3880 
3830 CLS:PPINT:PRINT"En efecto, la res 
puesta era: ";A$: PRINT: PPTP" Acúnala ú 

n punte p:=it:vc. ":PRINT:PRINT" 

m 

foí NN=NN*1:6QSUB3970 
3850 6ÜTÜ3910 

3860 PPINT:PRINT"Pespuestas correctas: 
";NN 

3870 PRINT:PÍIIKT"Solicitud« de repeti 
cion: ";NR 

3880 CLS:PPIN T :FPINT"Lo sienta. Pierde 
un punto. ":PRINT:PRINT"Usted rescendi 
o: ";A$:PPINT:PRINT"La respuesta corre 
cta era: ";H$+N$+0$ 

38°0 P*INT:PRINT' , 

WQW 



3900 GOSUB3970 

3910 L0CATE14,21:PRINT"Pulse: N 

3920 L0CATE13,22:PRINT n 

3930 G$=INKEY$ 

3940 IFG$='TOPGf*VTHEN3340 
3950 GOTO3930 
3960 SOTO3340 

3970 PRINT:PPINT B - Preguntas foriulada 
s: ";NC+1 

3980 PRINT: PRINT"- Preguntas restante 
s: V-INC+l) 

3990 PRINT: PRINT"- Respuestas correcta 
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5: ";NN 
4000 PRINT-.PRINT'- 
ticion: -;NR 
«10 PRINT: PRINT"- 
WQW 







4020 NONC+1 
4030 RETURN 

4040 BEEP:CLS:C0L0R8,1,1:PPINT 

4050 PRINT" Resultado: NN; "sobre" : NC 

:PRINT:PRINT" 



4060 LQCATE1.20:PRINT"GtrD test S/N ? 

4070 PRINT: PRINT" 

4090 L=7:PLAY"tl20116\"tl20116 

4090 PLAY a o5eco4go5cscfcfcfcgcgcgcacac 

acgcgcgcfedefdedcdecdedca4baggv7qgo5gg 

V°3ccv7cco4ccv8o3ddv7ddo4ccv8o3eev7e 

eo4ccv8o3ffv7ffo4ccv8c3eev7eeo4ccvBo3d 

dv7ddbbv8ccv7ccv8o4ccv7ccv8o3bagabgdgb 

i 

4100 0$=-INKEYS 

4*110 IFPLAY(0)=0THEN4090 

4120 IFO$="S"ORO*="s"THEN4l60 

4130 IFO$="N"OROI=VTHEN4200 

41 40 HÍ=CHR$ (1181 +STP$ (L) ¡ T$=H$: PLAYH* 

,T*:L=L-1:IFL-1=0THENL=0 

4150 5CTO4090 

4160 NC=0:NK=NK+1:NR=0 

4170 CLS:C0L0R14,i;PRINT" Ok":PRINT:PP 

INT" Un aoientc por favor PRINT: P 

RINT" 

4180 FORY=7TO03TE C - 1 : B$=CHR$ ( 1 18) *STR$ 
( Y) : E$=Bl: PLAYBS, E$: F0RZ= t TO200: NEXTZ : 



4190 SOTO3340 
4200 CLb:C0L0Rl,ll:KEY0N 
4210 FORY=7TO0STEP- 1 ¡ B$=CHRS (113) +3TRS 
(Y):Ef=B$:P!.AvBf,E$:FORZ=l T O200:NEnZ: 
NEXTY 
4220 END 

4230 BEEP:CLS:C0L0P12 

4240 PRINT: PRINT"-Repi te pregunta nü'; 

NC+1;"; sufre una 

4250 PRINT:PRINT"penalizacion de';CHR$ 

(32)+CHR$(i71)+CHR$(32);"punto. 

4260 PRJNT: PRINT"-Preste ahora lás ate 

ncion... 

4270 PF;INT:PRINT" ¡ 

WQW 

4280 LOCATE0,17:PRINr- L¡ Respuesta. 
(ab-bcc+de-eff+gg+) 

4290 LOCATE0,19;PRINT"- H: Ultiw repe 
ticion. 

4300 LOCATE0,21:PRINT" 

WQW 

4310 FORE=ITO1270:NEXT 
4320 PLAY'o4aa 
4330 FORZ=1TO1270:NEXT 
4340 PLAYH$:PLAYN$: PLAYOS 
4350 T$=INKEY$ 



4360 IFT$="L"ORT$="1-THEN4390 
4370 IFT$="H"ORTÍ="h-THEN4400 
4380 GOTO4350 
4390 NN=NN-.5:6OTO4410 
4400 NR=NR+1:GOTO4460 
4410 BEEP 

4420 LOCATE0, 12: PRINT" 5 

u respuesta '; 
4430 INPUTAf 

4440 BEEP:CLS:C0L0P4, 14,14 

4450 6OTO3820 

4460 BEEP:CLS:C0L0R8,1,1 

4470 PRINT" ATENCION ! " : PRINT" 

4480 PRINT:PRINT:PRINT:PRINT:PPINT--Re 
pite - por 23 ve: - pregunta nfi'sNC+l; 



4*90 PRINT" (sufre una penal i zaci or, de 

0.75 pun-":PRINT"tos¡":PRINT 

4500 PRINT"-Si depuís de responder, pu 

Isa cual- n :PRINT"quier tecla que no s 

ea [RETURN3, el":PRINT"prograía se aut 

odestrirá. 

4510 FRINT: PRINT"-En cuanto a la atenc 
ion. . . 

4520 LOCATE0,19:PRINT" 

4530 FQRE=1TQ1270:NEX7 

4540 PLAY"o4aa 

4550 FGRZ=iTO1270:NEXT 

4560 PLAYH$:PLAYN$: PLAYOS 

4570 NN=NN-.75 

4580 FQRS=1TO2400:NEXT:BEEP 

4590 PRINT: PRINT: PRINT: PRINT" 

Su respuesta 

4600 INPUTAS 

4610 FORT=1TO300:NE!(T:BEEP 
4620 PQKE(iHFDA9),iHFl 




4630 CLS:PRINT"Su respuesta definitiva 
fué: ■jAI 

4640 L0CATE12, 12:PRINT"Pulse RETURN 
4650 W$=INPUT$(1) 

4660 IFm=CHR$(13)THEN4670ELSE4700 
4670 PQKE(lHFDA9).iHF0 
4680 BEEP:CLS:C0L0R4. 14, 14 
4690 6ÜTO3820 

4700 CLS:C0LOR15,4,4:KEY0N 

4710 PRINT: PRINT"Praqra«a autodestruid 

o 

4720 LOCATE0.20 

4730 END: REM -► DEFUSR=0:A=USR(0) 
4740 KEY 1,"PLAY"+CHP*Í34) 
4 7 50 KEY 2,"KEY0PF"*CHR$(13) 
4760 KEY 3." KEY0N n *CHR$(13) 
4770 KEY 4," LIST ' 
4780 KEY 5,'RUN " 
4790 KEY 6, B csave"+CHF:$(34) 
4800 KEY 7,"cload n *CHR$(34> 
4810 KEY 8." rtrfl 
4820 KEY V?ttc("+CHRf(34l 
¿830 KEY 10/lprint"+CHR$(34) 
4840 RETURN 

4850 BEEP:CLS:5T0P0FF:EFASE c LGT.«t 

4360 A*=":KEY(1)QFF 

4870 STOPON:ONSTOP5OSUB5770 

4880 CLS : KEYGFF: COLOR 1,3,14 

4890 DMPLGT (8,2) ,HT<30) : RE5TOFE4920 

4°00 FOF 1=01029 

4910 READA: MT ' I ) =A: NEXT 

4=20 DATA 24,16.26,28,31 ,33 

4930 DA T A 35,36,33,40,41.4: 

4940 DATA 45,4"' 1 48.50.52.53 

4950 DATA 55,57,59, 60, 62,64 

4=60 DATA 65,é7,é? r 7-l, : 72,7í 

4970 CLS:SCREEN2,0.0 

49Í0 QPEN^GFP: ,: AS#1 

4990 LINE (8, 120? - 24B, 17é) , I5.BF 

5000 LINE(4,n¿;-;252,rS;,15,B 

5010 FORI=16TO240STEF3 

5020 LINE(I.120)-(I.:7:),1 

5030 NEXT 

5040 S=13 

5050 F0RI=1T04 

5060 RJRMT06 

5070 CEADN:S=S+N 

5080 LINEíS,:20i-!S*í.lSci.l.BF 

5090 NEXT J 

5100 RESTORE! 120 

5110 NEXTI 

5120 DATA 0.9.15,8.6.16 

5130 LINE(4.64)-¡252.;:2M.BF 

5140 FORI=68TO100STEP16 

5150 LINE(20.I)-(40,I+8).4,B 

5160 NEXT 

5170 P.ESTORE5240 

5180 LINE(11B,68)-(244,78),12,BF 
5190 FORI=1T08 
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Te encuentras en un oscuro 
castillo abandonado, inten- 
tando encontrar una llave 
de oro para romper el he- 
chizo que te impide salir. 
Para lograrlo tienes que ha- 
cer estallar los barriles de 
TNT y esquivar los mons- 
truos y la corriente de lava. 
Un apasionante juego de 




| El importe de mi pedido lo hago efec- 
tivo mediante: 
I □ Cheque adjunto a nombre de: 
I MANHATTAN TRANSFER, S A. 
1 C/RocayBatlle.lO-ia.baJos. 

_ 



«19 ir nlo«tP«. I.IK-ft* OR n|D»(P». 1. 1 )> 



5200 COLOR 1 5 : PRESET ( 1 23 . 70 ) : PF I NTt 1 . ■ H 

SX Synthetiser 

5210 F0RJ=1T02 

5220 PEADN:PLOT(I,J)«N 

5230 NEXTJ-.NEXTI 

5240 DATA 0,-2,2,-2,2,0,2,2,0,2,-2,2 
5250 FI=" B 

5260 DATA -2,0,-2.-2 
5270 F0RI=lT0B 
5280 FI=FI+CHRI1*HFF) 
5290 NEXT 

5300 SPRITE*(0)= r l 
5310 F$='" 
5320 X=105:Y=168 

5330 3TRI5<0)QN:ONSTPI66OSUB5440 
5340 KEY(1)QN:GNKEYGGSUB5730 
5350 FüTSFF: T E0,íX,Y),8,0 
536Í ! r ET:CK(0:'=0THEN5350 
5370 X=X+PLOT(5TICK(0) . 1) 
5380 Y=Y+PLQT(ST!CK(0),2) 
5390 IFX<8THENX=8 
5400 IFX>2«THE«X«241 
5410 IFYV119THENY=119 
542Í : r :,i:S T HENY=168 
SO S0TQ535Í 

5440 IFP0INT(X,Y)=14+lTHEN!1=f1T(INT((X- 

BJ/8» 

5450 IFP0INT!X,Y)=lTHEN?!=l!ÍlNT((M3) 

5460 FRESETÍ4, 10) : COLOR 15 : PRINT#1 , " Su 
respuesta es: 

54" , 0 CQLQR1:PRESET(4,14):PRINT»1. H _ 

5480 FLAY"L8;N=fl: 

5490 IFM=36THEN«=?9 

5500 !^=37THENH=99:GOTO5650 

5510 IFM=38THENH=100 

5520 IF«=39THENH= 101: 6OTO56B0 

5530 IFHM0THENH=101 

5540 IFH=41THENH=102 

5550 IFH=42THENH=102:6OTO5650 

5561 IFM=43THENM=103 

5570 IFH=44THENH=103:6OTO5650 

5580 IFH=45THENH=97 

5590 IFM=46THENM=98: 6OTO5680 

5600 IFM=47THENH=98 

5610 AI=AI+CHRI (H) : IFLEN (At ) >6THENAI S ' 
, :LINE(2,10)-(250,48),3,BF:PRESET(4,10 
) -.COLORIS: PRINTil," Su respuesta es:": 
ELSE 

5620 C0L0R1:PRESET(4,14):PRINTI1/ _ 

5630 COLORIS: PRESET (144,10): PRINT41, » 1 
♦Al 

5640 GOTO5700 

5650 AI=AI+CHRI(H) *CHR$ I 43 ) : PRESET ( 1 44 
, 10) : C0L0R15:PRINTI1, "♦Al: IFLEN(AÍ) >6 



THENAI="":LINE<2,10)-(250,4B),3,BF:PRE 
SET(4,10):COLOR15:PFINT*1, B Su respues 
ta es:':ELSE 

5660 C0L0Rl:PRESET(4,14):PRINT*i,' _ 
L 



5670 GOTO5700 

5680 AI=AI+CHP$ m *CHRI ( 45) : PRESET (144 
,10) :C0L0RI5:PRINT#1, u " +At : I FLEN ( Af ) >6 
THENAI=' ,n :L!NE(2,10W250.44),3,BF:PRE 
SET(4,10):PRINTtl, M Su respuesta es:": 
ELSE 

5690 CQL0Rl:PFE5ET(4,14i:PRINTtl/ _ 



5700 COLOPi5:PRESET(4,30):FRINT41," Cu 

ando esté conforme puise Fl 

5710 COLORI : PRESET (4, 34) : PF:ÍNT#1 j " _ 



5720 RETURN 

5730 CLÜSE: RESTORE: STOPOFF 
5740 BEEP:CLS:SCFEEN0,M " 
5750 C0L0R4.i4.14 

5760 STQPON:ONSTOF5OEUB4T00:6DTO3S20 

5770 BEEP:CLS:C0L0R^, 1 , 1 : SCREEN0, , 1 

5780 KEYDN: END 

5790 CLS:SCREEN0:COLOR3 

5600 LOCATE10,ll:PRINT n Por fivcf, E:FE 

RE 

5810 LOCATE?, 13:FRINT" 

WQW- 

5820 L0CATE11,22:II=INPUTI<1! 

5E30 IFASC(I$>=13THEN5740 

5840 REH - Dictado de acordes - , . 

5B50 CLS: SCREEN0: KEYQN: C0L0R8, 1 

5860 WIDTH34 

5870 FORN=0TO967 

5880 VP0KEN f ASC("*"í 

5890 NEXT:COLOR10 

5900 F-36 

5910 F0RN=1T024 

5920 AI="L24 n +CHR$!79)+STP$(P) 

5930 LOCATE0,23 

5940 PR1NT:PLAYAI:P=P+2;NEXT 

5950 LOCATE0,0:FORZ=1TO34:PRINTCHRI(12 

6);:NEXT 

5960 C0L0R5: RESTORE5990 
5970 F=5:F0RT=1TQ24 
5980 READY 

5990 LOCATEF,10:PRINTCHR$(Y):BEEP:F*F+ 
1:NEXT 

6000 DATA 65.67,79,82,68,69,83,32,83,7 
3,78,32,65,76,84,69,82,65,67,73,79,78, 
69,83 

6010 LQCATE4.11:PRINT" 



6020 LOCATE9,20:PRINT"Pulse una tecla 
6030 L0CATE8,21:PRINT" 

m 



6040 IFINKEY$=""THEN6030 
6050 KE YOFF : M I DTH37 : COL0R4 , I 4 
6060 BEEP;CLS:LOCATE0,4:PRINT"- Las no 
tas de los acordes deben ser ' : PRINT"es 
critas de agudo a grave. Asi pues,";! 
si usted escuna ";CHR$(34) ; "f a, la, do"; 
CHR$(34);CHR$(44);CHR$(32);"debe res-" 
;"ponder: afc 

6070 PRINT: PRINT r *- Recuerde que si ust 
id no redef ine":FRINT"el nivel de difi 
cuitad, solo traba-": PRINT" jaremos en 
el áibito de la octava n24 
6080 LOCATEll,20:FRINT"Pulse una tecla 

":LOCATE10,2i:PRINT" 

6090 IFINKEV$=""fHEN60?0 

6100 CLS:IFN03THEN676f 

6110 GNSTOP6OSUB7390: STOFGN 

6120 A=RND(-TME) 

6130 X=INT(PNDÍ1)?8)+1 

6140 Y=INT(RND(1)*8)*1 

6150 Z=INTÍRNDÍ1) tB)-l 

6160 P$="cde-f+gab 

6170 f1$=HID$(P$,X,2) 

6180 IFLEFT$(H$,1)=CHR$(43)CRLEFT$(«$, 

1 ) =CHR$ ( 45) THENM$=CHF$ (0) : BEEP : G0T061 3 

0:ELSEM=NIDI(P$,X,1) 

6190 IFX<YOF:X<ZTHENBEEF:GOTO6120 

6200 N*«HID$(P$,Y,1) 

6210 IFLEFT$(N$,l)=CHR$(43)QRLEFTf 1 , Ní, 

1)=CHR${45)THENN$=CHR$(0!:BEEP:GOTO614 

0:ELSEN$=HID$<P$,Y,1) 

6220 IFY<ZTHENBEEP:6QTO6120 

6230 Ql«NID!(P$,Z,l) 

6240 IFLEFTs (0$, 1 ) -CHR$ (43) ORLEFTi í 0$, 

1)=CHR$(45)THENO$=CHR$(0):BEEP:GOTO615 

0:ELSEQ$=MIDi(P$,Z,l) 

6250 IFM=N»OPf1$=Q$THENBEEP;GQTO6120 

6260 IFN$=O$THENBEEP:GOTO6120 

6270 PRINT"- Nombre: ";I$:PRINT 




6280 PRINT"- Puntos acumulados: ";J+NN: 
PRINT 

6290 PRINT"- Test n£: " ; K+NK; : PRINT" 
";:PRINT"Preguntí nO:";N£>l 

6300 PFINT: PRINT" 

WQW 



6310 PLAY"o4aa 

6320 FORH=1TO1270:NEXT 

6330 PLAYH$,N$,0$ 

6340 LOCATE20,2:PRINTJ+NN 

6350 LOCATE0.8 

6360 PRINT "Qué notas han senado ? 

6370 PRINT" 

6380 LOCATE0,18:PRINT"H : Repite notas 
. Pierde ";CHR$<171;;" punto. "¡FRINT"- 



6390 REM 

6400 LOCATE0,20:PRINT"L ¡ 

ab-bcc*de-eH+gg*) 

6410 LOCATE0,21:PRINT"- 

m 



Respuesta. ( 




6420 TI»INKEY$ 
6430'IFT$="L"ORT$='l"THEN647í 
6440 IF T $="H"ORT$="h"THEN6460 
6450 GOTO6420 
6460 NR«HR+t:6QIQ689« 
6470 POKE&HFDE0,*HC9 
6480 L0CATE21.S: INPUTAt 
6^0 LQCATE0,15:PRINT"Su respuesta es" 
; CHR$ 1 32 ) ; CHF$ ( 34 ) ; A* ; CHPS í 34 ) : CHJ 1 14 fi 
);CHR$(32);" Ahora pulseRETURN nueva 
■ente. Si pulsa cualquier"; 
6500 PRINT"otra tecla el programa alia 
cenará susdatas, le puntuará tm un :e 
ro, y ya ";:PRINT"nc funcionará para u 
sted. ■:FQRF»1T037:PRINTCHP.S 
(32);:NEXT 

6510 LGCATE0,:1:PPINT" 

m 

6520 L0CATE25, 20: PRINTCHPS | 200^ : LOCATE 

25.20:B$=!NPl'T$(l) 

6530 IFASC(B*)=13THEN6540ELSE7390 

6540 IFA$=H$tN$+O$THEN6550ELSE6600 

6550 CLS:C0L0R4 ? 14, 14: PRINT: PRINT"Er. e 

fecto, la respuesta era: "; A$:PF;INT:PR 

INT"Acuiula un punto positivo. ":F C INT: 

PRINT" 

WQW — 

6560 NN=NN*1:GOSUB6690 
6570 GOTO6630 

6580 PRINT:PRINT"Pespuestas correctas: 
";NN 

6590 PRINT:PRINT"Solic:tudes de repeti 
cion: ';NR 

6600 CLS:PRINT:PRINT'Lo siento. Pierde 
un punto.": PRINT: PRINT'Ustetí respondí 
o: ";A$:PRINT:PRINT"La respuesta corre 
cta era: ";fl$+N$+0$ 

6610 PRINT-.PRINT' 




La más rápida 
y completa batalla 
espacial 




! 



| El importe de mi pedido lo hago efec- 
tivo mediante: 

□ Cheque adjunto a nombre de: 
MANHATTAN TRANSFER, S A. 
C/RocayBatlle, 10- 12, bajos. 
I 08023 F 



Programa 



' ' III»"'». I. I >• O I*» * 



Í620 SOSUBÓÓ90 

6630 L0CATE14,21:PRINT"Pulse: N 

6640 L0CATE13,22:PRINT" 

6650 G$=INKEY$. 

6660 IF6V í N"tftG$="n"THEN6100 

6670 GOTO6650 

6680 BOTO6100 

6690 PRINT: PRINT"- Preguntas torculada 
s: ";M>1 

6700 PPINT:PRINT"- Preguntas restante 
s: ";3-(NM) 

6710 PRINT:PF:INT"- Respuestas correcta 
s: ";NN 

6720 PRINT:PF:IN^- SoIicitadH de -epe 
ticion: ";NR 

6730 PF;!N7:PF:INT" 

HQH 



6740 NC=NC+Í 
¿750 FETÜRN 

6760 BEE C ::LS:C0L0R6,1,1: C MMT 

6771? r F,INT r Resultado: ";NN; "sobre" ; NC 

:PRINT:PRINT" 



6780 LOCftTEl,l?:PRIN T "Qtrc test S/N ? 

6790 Pf>!NT:PRINT" 

6B00 0$=INKEV$ 

6810 IFOf="S"QFD$="s"THEN6840 
¿820 IFOI="N"ORO$=VTHEN6870 
6830 5OTO6800 

6840 NC=0:NK=NIOl:NN*0:NRs0 
6850 CLS:C0LQF4,t4 
6860 GOTO6100 

6870 CLS:C0LORUUi:KEYON 
6880 END 

6690 BEE C :CLS:C0LGR12 

6900 PRINT:PRINT B -F,epite pregunta ftf] 

NC+1; sufre ^na 

6910 PRINT:PRINT"penalizacion de";CHF:$ 
(3::-:HF$U71)+CHR$(32);'puntc. • ' 
6920 PRINT: PRINT: PRINT'-Preste ahora ■ 



ás atención... 
6930 PRINT: PRINT"— 

m 



6940 LOCATE0,17:PRINT"- L: Respuesta. 
(ab.-bcc+de-eff+gg+) 

6950 LOCATE0,19:PRINT"- H: Ultiaa repe 

ticion. 

6960 LOCATE0,21:PRINT" 

m 

6970 FORE=1TO¿40:NEXT 

6980 PLAY"o4aa 

69<?0 FORZ=1TO1270:NEXT 

=LAvn$,N$.o$ 

7010 T$=INKE 7 s 

7 020 IFT$='L"ORT$='1"THEN7050 
7030 IFT$= , H n ORT$="h"THEN7060 
7040 GOTQ7010 
7050 NN=NN-.5:6QTO7070 
7060 NF=NP.*1:GOTO7170 
7070 BEE' 

7080 LOCATE0,13:PRINT" S 

u i-espuesta "; 
7090 INPUTAf 

7100 LDCATE0,15:PRINT"Su respuesta es" 
:CHR$(32)¡CHPf (34);AI;CHR$(34);CHR$(46 
);CHRs(32);" Ahora pulseRETURN. nueva 
■ente. Si pulsa cualquier"; 
7110 PRINT'otra tecla el programa alma 
cenará susdatos, le puntuará con un ce 
ro, y ya ";:PRINT"no funcionará para u 
sted. ":FQRF=1T037:PRINTCHR$ 
(32);:NEXT 

7120 LOCATE0,21:PFINT" 

HQH 



7130 L0CATE25 , 20 : PRINTCHRf ( 200) : LOCATE 

25,20:B*=!NPUT$(1) 

7140 IFASC (B«) =13THEN7150EL5E7390 

7 15ü BEEP;CLSiC0L0R4 l 14 i M 

7160 GOTO6540 

7 170 BEEP: CLS: CQLDR6, 1 ,1 



7180 PRINT" ATENCION !":PRINT" 

7191 PRINT:PR1NT: PRINT: PRINT: PRINT"-Re 
pite - por 2§ vez - pregunta n2';NC+l; 



7200 PRINT" (sufre una penalizacion de 

0.75 pun-":PRINT"tos)":PRINT 

7210 PRINT"-Si depués de responder, pu 

Isa cual-":PRINT"quier tecla que no s 

ea tRETURN], el":PRINT"prograia se aut 

odestrirá. 

7220 PRINT: PRINT"-En cuanto a la atenc 
ion... 

7230 LOCATE0,19:PRINT" 

HQH 



7240 FORE=1TO640:NEXT 

7250 PLAY"o4aa 

7260 FORZ=ITO1270:NEXT 

7270 PLAYM$,N$,0$ 

7280 NN=NN-.75 

7290 FORS=1TO2400:NEXT:BEEP 

7300 PRINT: PRINT: PRINT: PRINT" 

Su respuesta 

7310 INPUTAI 

7320 PRINT:PRINT:PRINT"Pulse RETURN, c 

ualquier otra tecla':PR4NT"destruiria 

el programa... "; 

7330 P0KE(tHFDA9),lHFl 

7340 B$=INPUT$(1) 

7350 IFASC(B$)=13THEN7360ELSE7390 

7360 POKE(&HFOA9),!tHF0 

7370 BEEP:CLS:C0L0R4,14,14 

7380 GOTO6540 

7390 CLS:COLOR15,4,4:KEY0N 

7400 PRINT:PRINT"Prograaa autodestruid 

o 

7410 END:REM -> DEFUSF:=0:A=USR(0) 
7420 COLOR 1 , 1 , 1 : CLS : SCREEN0: G0T0331 0 



Test de listado i 



100? 


- 58 


10!0 - 82 


1170 


-119 


1290 


-129 


1410 


- 1P 


1530 


- 58 


1650 - 1 


1770 - 51 


1990 


- 39 


2010 




2130 


- 37 


1001 


- 58 


1060 -132 


1180 


-160 


1300 


-100 


1420 


- 0 


1540 


-206 


1660 - 0 


1780 -178 


1900 


-252 


2020 


-199 


2140 


- 46 


1002 


- 59 


1070 -194 


1190 


-199 


1310 


- 64 


1430 


- 0 


1550 


-249 


1670 - 4 


1790 - 54 


1910 


-145 


2030 


-145 


2150 


-142 


1003 


- 59 


1080 -110 


1200 


-155 


1320 


- 4 


1440. 


- 0 


1560 


- 86 


1680 -156 


1800 -146 


1920 


- 22 


2040 


-118 


2160 


-188 


1004 


_ 


10^0 -129 


1210 


- 94 


1330 


-221 


1450 


-251 


1570 


- 91 


1690 - 94 


1810 -253 


1930 


- 2 


2050 


- 1 


2170 


-215 


1005 


- 59 


1100 - 46 


1220 


-139 


1340 


- 45 


1460 


-191 


1580 


-218 


1700 -150 


1B20 - 18 


1940 


-145 


2060 


- 50 


2180 


- 53 


1006 


- 59 


1110 - 34 


1230 


- 46 


1350 


-216 


1470 


-142 


1590 


- 90 


1710 -229 


1830 -222 


1950 


-231 


2070 


- 23 


2190 


-169 


100 7 


- 58 


1120 - 91 


1240 


-131 


1360 


-190 


1480 


-159 


1600 


-162 


1720 -130 


1840 -173 


1960 


- 8 


2080 


- 86 


2200 


-157 ' 


1008 


- 58 


1130 - 61 


1250 


-238 


1370 




1490 


-128 


1610 


-192 


1730 - 96 


1850 - 0 


1970 


-145 


2090 


- 70 


2210 


- 66 


1020 


- 23 


1140 -167 


1260 


-239 


1380 


-216 


1500 


-129 


1620 


-180 


1740 -114 


1860 -131 


1990 


-161 


2100 


-125 


2220 


- 40 


1030 


- 34 


1150 -215 


1270 


-240 


1390 


- 56 


1510 


- 69 


1630 


-113 


1750 -17B 


1870 - 39 


1990 


- 16 


2110 


- 53 


2230 


-226 


1040 


- 42 




1280 


-220 


1400 


-130 


1520 


- 58 


1640 


- 0 




2000 


-134 


2120 


- 80 


2240 





36 



2250 


-150 


2840 


- 63 


3430 


- 14 


2260 


- 24 


2850 


- 86 


3440 


- 20 


2270 


-102 


2860 


- 62 


3450 


- 2 


2280 


-136 


2870 


- 86 


34.60 


- 19 


2290 


- 49 


28B0 


-247 


3470 


-101 


2300 


-174 


2890 


-234 


3480 


-111 


2310 


- 80 


2*00 


-222 


3490 


- 97 


2320 


- 25 


2910 


-125 


750? 


- 64 


2330 


-246 


2920 


-141 


3510 


- 25 


2340 


-166 


2930 


-223 


3520 


- 77 


2350 
2360 


-168 


2940 


-170 


3530 


- 37 


- 36 


2950 


- 74 


3540 


- 90 


2370 


-1B1 


2960 


-120 


3550 


- 49 


23B0 


- 10 


2970 


-190 


3560 


- 82 


2390 


-224 


2980 


- 8 


3570 


-"221 


2400 


-169 


2990 


-211 


3580 


-208 


2410 


-136 


3000 


-170 


3590 


-249 


2420 


- 96 


3010 


- 61 


3600 


- 54 


2430 


- 80 


3020 


- 1 


3610 


-217 


2440 


-236 


3030 


-241 


3620 


- 72 


2450 


- 85 


3040 


-170 


3630 


-124 


2460 


- 63 


3050 


- 0 


3640 


- 13 


2470 


- 3B 


3060 


-235 


3650 


-220 


2480 


-112 


3070 


- 13 


3é¿0 


- 46 


2490 


- 71 


3060 


-116 


3670 


- 26 


2500 


-200 


3090 


-230 


368? 


-147 


2510 


- 69 


3100 


- 73 


3690 


-133 


2520 


-215 


3110 


-217 


: 7 00 


-181 


2530 


- 14 


3120 


-141 


3710 


- 18 


2540 


- 85 


3130 


-243 


3720 


-222 


2550 


- 10 


3140 


- 30 


3730 


- 83 


2560 


- 31 


3150 


-208 


3740 


- 84 


2570 


-121 


3160 


- 62 


3750 


-122 


2580 


- 80 


3170 


-129 


3760 


- 66 


2590 


-248 


31B0 


- 47 


3770 


- 55 


2600 


- 78 


3190 


-235 


3780 


-153 


2610 


- 41 


3200 


-174 


3790 


-130 


2620 


- 54 


3210 


- 20 


3800 


- 65 


2630 


-145 


3220 


- 53 


3810 


-234 


2640 


- 65 


3230 


-201 


3B20 


- 35 


2650 


- 23 


3240 


- 67 


3830 


- 7 


2660 


-218 


3250 


-243 


3840 


-144 


2670 


- 33 


3260 


- 84 


3850 


-236 


2680 


- 13 


3270 


- 0 


3860 


-166 


2690 


-108 


3280 


-236 


3870 


- 56 


2700 


- 20 


3290 


- 53 


3880 


-187 


2710 


-124 


3300 


- 40 


3890 


-222 


2720 


-251 


3310 


-141 


3900 


- 44 


2730 


- 56 


3320 


-185 


3910 


-195 


2740 


-222 


3330 


-100 


3920 


-250 


2750 


- 69 


3340 


-183 


3930 


- 70 


2760 


- 80 


3350 


- 0 


3940 


-123 


2770 


- 98 


3360 


- 0 


395? 


- 0 


2780 


- 95 


3370 


- 0 


3960 


-176 


2790 


-149 


338$ 


- 0 


3970 


-189 


2800 


- 49 


¿390 


-197 


3980 


-191 


2B10 


- i 


3400 


- 21 


3990 


-211 


2820 


-234 
-86 


3410 


- 22 


4000 -101 


2830 


3420 


- 23 


4010 -222 



4020 - 20 
4030 -142 
4040 -240 
4050 - 79 
4060 -153 
4070 - 86 
4080 -148 
4090 -136 
4100 - 78 
4110 -159 
4120 -204 
4130 -23* 
4140 -254 
4150 -160 
4160 -201 
4170 -247 
4180 -181 
41°$ -176 
4200 -137 
4210 -18! 
4220 -129 



4250 -206 
426* -132 
4270 - 54 
4280 -158 
4290 -159 
4300 -222 
4310 -116 
4320 - 72 
4330 -137 
T340 - 13 
4350 - 83 



4360 


-175 


4700 


-209 


50T0 


Iol 


5360 


-112 


4370 


-177 


4710 


- (¡- 1 


504fl 




5370 


- 97 


4380 


-165 


4 7 20 


- 56 


5050 


-IRA 
100 


53W-100 


4390 


-198 


4730 


-1B7 


5060 


-189 






4400 


-128 


4740 


-140 


50 7 0 


-227 






4410 


-192 


4750 


- 6 


5080 


-108 


5400 


-242 


4420 


-162 


4760 


-201 


5090 


-205 


5410 


- 2 


4430 


-234 


4770 


-141 


5100 


-154 


5420 


- 98 


4440 


- 55 


4780 


- 71 


5110 


-204 


5430 


-145 


4450 


-145 


♦790 


-109 


5120 


- 6 


5440 


- 83 


4460 


- 37 






5130 


-123 


5450 


_ -r 


44"0 


-116 


480? 


- 95 


5140 


- 84 


^460 


-m 


4480 


-230 


4810 


-188 


5150 


- 64 




_ Q 


44 o ? 


-2^7 


4820 


-252 


5160 


-131 


54B0 


-181 


450? 


-245 


4830 


-246 


5170 


- 38 


54*0 


-13? 


4510 


-241 


4840 


-142 


51B0 


-206 


55?? 


-124 


4520 


-220 


4850 


- 57 


5190 


-190 


551? 


- • 53 


4530 


-116 


4860 


-236 


5200 


- 28 


552? 


-158 


4540 


- 72 


4870 


-191 


5210 


-185 


553? 


-136 


4550 




4880 


- 34 


5220 


-155 


5540 


-138 


4560 


- 13 


4890 


-216 


5230 


-211 


5550 


-132 


4570 


r235 


4900 


-208 


5240 


- 65 


5560 


-141 


45S? 


-235 


4910 


• 42 






5570 


-135 


45 o ? 


-«3 4920 
-234 4930 


-204 


5250 


-157 


5580 


-137 


4600 


-204 


5260 


- 85 


5590 


-162 


4610 


-176 


4940 


-212 


5270 


-190 


5600 


-140 


4620 


-196 


4950 


-220 


528? 


-124 


5610 


-149 


4630 


-172 


4960 


-227 


5290 


-131 


5620 


- 9 


4640 


- 16 


4970 


- 43 


5300 


-166 


5630 




4650 


-116 


4980 


-224 


5310 




5640 


-241 


4660 


-134 


4990 


-255 


571? 


-248 


5650 




4670 


-195 


5000 


-183 


5333 


-25i 


5660 


- 9 


4690 


-55 
-145 


5020 -177 


5340 -114 
5350 -103 


5670 
5680 


-241 
-156 




5690 


- 9 


6280 


-208 


6870 


-207 


5700 


- 6 


6290 


-249 


6880 


-129 


5710 


-157 


6300 


- 54 


6890 


-171 


5720 


-142 


6310 




¿°00 


-129 


5730 


- 47 


6320 


-124 


6910 


-206 


5 7 40 


- 35 


6330 


-111 


6920 


- 79 


5750 


-100 


6340 


-220 


6930 


- 54 


5760 


- 88 


6350 - 46 


6940 


-158 


5770 


-154 


¿360 


- 26 


6950 


-159 


5780 


- 28 


6370 


-147 


6960 


-222 


5790 


-136 


6380 


-135 


6970 


-252 


550? 


- °9 


6390 


- 0 


69B? 


- 72 


581? 


_ I -r 


6400 


-116 


6 < "'0 


-137 


582? 


-229 


6410 


-214 


7000 


-111 


583? 


- 32 


642? 


- 83 


701? 




5B4? 


- 0 


6430 


-215 


702? 


- 29 


5850 


-152 


¿44? -197 


7030 




586? -209 


6450 


-196 


7041 


- 20 


587? 


-143 


6460 


- 7 


7050 


-198 


5 68? 


- 36 


6470 


-130 


7060 


_ jj 


58*? 


-14" 


6480 


-101 


707? 


-192 


5 5 ?? 


-114 


64°0 


-128 


7 080 


-163 


5913 




¿5?? 


-186 


7090 




5°2? 


-!S2 


6510 


-222 


7J00 


-128 


597? 


- 5 : 


6520 


-251 


2110 


-186 


5940 


1*.0 


6570 


- 3! 


7120 


-222 


c '-- • 


.<-- 


6540 


-120 


7130 


-251 


5960 


- 36 


655? 


-165 


7*40 


-181 


5970 




¿5fc? 


- 5 Q 


7150 


- 55 


5980 


-224 


657? 


-150 


7160 


- 60 


59°? 


-220 


¿53? 


-166 


7170 


- 35 


¿00? 


-152 


65?? 


- 5a 


7180 


-116 


6010 


•léfi 


6600 -187 


7190 


"2 7 0 


6?:? 


-172 


661? -222 


. -TL 


-207 


607? 


- =4 


6620 


-215 


721? 


-245 


6040 


- 55 


6630 


-195 


7220 


-241 


605? 


- 2é 


6640 


-250 


7230 


_->2? 


6060 


-228 


6650 


- 70 


7240 








6660 


- 77 


725? 




608? 


-7.70 


6670 


"170 


7 260 




60°? 




668? 


-130 


7270 


-i • í 


6110 


- *8 


6690 


-189 


726? 


-7,c 


6110 


- 25 


¿700 


-191 


729? 




6120 


-1*7 


6710 


n 1 . 
ia 


7300 


-153 


613? 


- 21 


6720 


-101 


1 •jIv 




614? 


- 22 


6730 


-222 




00 


6150 




6740 


- 20 




-1 0¿ 

170 


616? 


-153 


6750 


-142 


7 340 


- 97 


6170 


-106 


67¿? 


-238 


7350 


-136 


6180 


- 37 


6770 


- 79 


7360 


-195 


6190 


- 4? 


6780 


-152 


7370 




6200 


-108 


67*0 


- 86 


7380 


- 60 


6210 


- 52 


6800 


- 78 


7390 


-209 


6220 


-152 


6810 


-78 


7400 


- 67 


6230 


• 109 


6820 


- 9B 


7410 


-187 


6240 


- 68 


6830 


- 65 


7420 


-255 


6250 


-145 


6840 


-159 






6261-201 


6850 


-244 


TOTAL: 


6270 


- 18 


6860 


-130 


81990 
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Programa 



■Por Fernando Alba B 



GEOGRAFIA 
ESPAÑOLA 



1 0 ' * ?< & * ?< * & * & * & * & * ?< * & * ?/ * ?< * 5, * ?/ * & * 

20 ? *&GEOGRAFIA ESPADOLA $<* 

30 DE &* 

40 **&F E R N A N D O A L B A?<* 

50 '?<* RARA ge* • 

6® '« M3X-BLUB &* 

30 * PANTALLA DE PRESENTACION 
90 CÜLÜR4 ,3,5 

100 SCREEN2:CL5 

í 10 FSET '140, 171 ) : DRAW'r luir 12ulr 
Su2r 5 f 3e5u3r Iu4e5u2r3u3r3e2r2e5u31 1 
d21 2u2r iu3e3u.ÍB2u.4r2e3hl5u25el012e4 
h23 Ie7r3u2r3e2rl0u3e21u5h3u3r2uh313 
g21 L Íu215h3d2i7u31 1 1 g31 9u21 1 0u2g 1 0h 

101 10u31 10d31 10u41 I0g51 10u.414d41 15u 
4 h515u3h3g51 1 u.5g51 3d2r3d31 3g31 5u21 
3d7I 3d313d5 

Í2-J PSET (35, 19) : DRAW"d9e5d2g5d5r 
5d5r2d20r ld41 Idl4g4d 5g5d 1 5r5e5d71 3 
d~r~:d25g5d7r 4u2r5f 5r20* 12d5f 5r 7d5f 5 
- '.~ T d Sr 1 5u. 1 5r 1 3e5 

I ' CPEtT'GFP: "FQR OUTPUTAS1 : PSET (8 
S , 55 > : PR I NT# 1 , " GEOGRAF I A " : PSET (85,9 
5) :r^I| ¡ T #l, "ESPADOLA.. M 
140 PAÍNT<0,0) ,4 
150 PAIMT-200, 191) ., 4 
160 SCREEN0 
170 KEYOPF 
180 CLS 

190 COLORIS, 5, 5 

200 KE Y 1," SOLUCION "+CHR*U3> 
210 TI*=RIGHT*( (STR* (TIME) ) ,2) : FORT 
•0TOVAL (TI*) : X-INT (RND ( 1 ) *8) +1 : NEXT 
220 KEY1, "SOLUCION"+CHR*< 13) 
230 DIMA(30) :DIMPO*(30,S) :DIMP*(30) 
240 CL5 

250 COLOR 15,5,5 

260 PRINT" (t) COPYRIGHT FERNANDO A 
LBA DIAZ: " 

270 PRINT " _ 

280 F0RT=3T01 1 : TT-22-T: L0CATE9, T 
290 PR I NT " G " -i-CHR* (28) ; "O" +CHR* (28) | 
"R"+CHR*<2B) ; "F"+CHR* (28) ; "A"+CHR*> 
23) ; " "+CHR* (28) ; "5"+CHR* (28) ; "A"+C 
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Este sencillo programa edu- 
cativo pondrá a prueba vuestros 
conocimientos de geografía po- 
lítica española. 




HR* C28) \ ¡ □ ■' +-CHR*<28) q "A" 
300 L0CATE9 ,T-1: PR I NT " 

" : LOCATE 1 0 , TT 
310 PRINT"E"+CHR*(28) ; "G"-+-CHR* (28) 5 
"A"+CHR*(23) 5 "I"+CHR*(23> ! " * , +CHR*< 
28) ; "E M +CHR*<28> r, "F"+CHR* (28) ; "rV+'C 
HR* (23) 3 "L" 

320 LOC ATE 10,TT+1: PRINT" 

" : NEXT 
330 LOCATE0.,21 

340 PRINT" PULSA ESPACIO F ARA CO 

MENZAR" 

350 FORT--0TO75: K*»INKEY*: IFK**'' "THE 
NNEXTELSE400 
360 LOCATE0 ¡1 21 
370 PRINT" 

380 FORT=0TQ73sK*«INKEy* l s ÍFK*»* "THE 

NNEXTELSE400 

390 GOTO330 

400 LOCATE0, 21: PRINT" 

4 1 0 FORT- 1 1 TQ3STEP~ 1 : TT=22-T : LOCATE 
9,T 

420 PRINT"G"+CHR*(2S> ; ,, 0"+CHR* (28) : 
R N +CHR*Í28) ; "F"+CHR* (23) ; "W+CHR* ( 




23) ; " n +CHR*(2B) i "S"*CHR$ (28) ; "A"+C 
HR*(2e);"0" + CHR*C28);"A" 
430 LOCATE? , T+ 1 ! PR I NT " 

" : LOCATE 10, TT 
440 PRINT" E"+CHR$ (28) ; "G"+CHR* ( 28) ; 
"A"+CHR* (23) ; " I ""+CHR* (28) j " "+CHR*< 
28) ;"E" h:hf<M2S) ; »PV+CHR$(28) ; "ÍV'+C 
MR* (28) ; "L" 

450 LOCATE 1 0 , TT-1 : PR I NT " 

" : NEXT 
460 CLS 

470 CÜL0R15, i, 1 
4S0 ' INSTRUCCIONES 

m0 PRINT" íc) COPYRIGHT FERNAN 

DO ALBA" 

500 PPINTsPPINT* GEOGRAFIA 
ES" Af::OLA-" 

0 PRINT" 



^2;: : . * DATAS DE ARCHIVOS 
330 FQRV- lT013s READA ( V ) : READP* ( V ) : F 
ORT---ITOA (V) : READPO$ (V, T) : NEXTT: NEXT 
V 

540 DATA 4, GALICIA, LA CGRUñA , LUGO , O 
REN9E, PONTEVEDRA 
550 DATA 3, LEON, LEON, ZAMORA, SAL AMAN 

CA 

560 DATA 3, CASTILLA LA VIEJA, SANTAN 

DER , P ALENC I A , BURGOS , VALLADO!. I D , LOGR 

OnO , SOR IA , SEGOV I A , A V I LA 

570 DATA I, ASTURIAS, OVIEDO 

530 DATA 2, EXTREMADURA, CACERES, BADA 

JOZ. 

590 DATA & t ANDALUCIA, HUELVA, SEVILLA 

t CORDOBA, JAEN, GRANADA, ALMERIA, MALAG. 
A, CADIZ 

600 DATA 2, MURCIA, ALBACETE, MURCIA 
610 DATA 3, VALENCIA, ALICANTE, VAlENC 
IA, CASTELLON DE LA PLANA 
620 DATA 4, CATALUÑA, BARCELONA, TARRA 
GONA „ LER I DA , GERONA 

c,30 DATA 3, ARAGON, HUESCA, ZARAGOZA, T 

ERUEL 

640 DATA 5, CASTILLA LA NUEVA, MADRID 
., TOLEDO, GUADALA JAR A, CUENCA, CIUDAD R 
EAL 

650 DATA 1 , NAVARRA, PAMPLONA 
660 DATA 3, PAIS VASCO , B ILBAO , SAN SE 
BASTIAN, VITORIA 
670 " INSTRUCCIONES 
680 LOCATE0,6üPPINT" 

":LOCATE0,5 
690 PRINT" DEBES DE DECIRME LA PART 
E DE ESPA-" 

700 PRINT: PRINT" ÑA DONDE SE ENCUEN 
TRA LA CAPITAL-/" 

710 PRINT: PRINT" QUE YO TE VOY A DE 
CIR. PERO SI NO/" 



Especial para nuevos 
usuarios. 

Para que ningún lector 
quede al margen te propo- 
nemos una nueva sección/ 
concurso. 

¡Participa con tu pe- 
queño programa de gráfi- 
cos, sonido, juego o truco! 

BASES 



1. ° Podrán participar to- 
dos nuestros lectores, 
cualquiera que sea su 
edad. 

2. " Los programas se re- 

mitirán grabados en 
cassettes debidamente 
protegidas dentro de 
su estuche plástico. 

3. " No se admitirán aque- 

llos programas plagia- 
dos o editados por 
otras publicaciones. 

4. " Las mejoras a los pro- 

gramas se considerarán 
una aportación al mis- 
mo y se publicarán en la 
sección Línea Directa. 

PREMIOS 

5. " MSX CLUB premiará 

aquellos programas 
publicados con 2.000 
pts. 

6. " MSX CLUB se reserva 

el derecho de abonar 
los premios en metáli- 
co o su equivalente en 
software, haciéndolos 
efectivos a los 15 días 
de publicados. 

FALLO Y 
JURADO 

7° El Departamento de 
Programación actuará 
como jurado y su fallo 
será inapelable. 

8." Los programas remi- 
tidos no se devolve- 
rán, siendo destruidos 
aquellos que no sean 
seleccionados. 



$0. 



Programa 






720 PRINT: FRINT" CONOCES LA RE3FUES 
TA PULSA t Fl 1" 
730 GOSUB1020 
740 '" PREGUNTAS 

750 FORT=4TO20: LOCATE0, T: PRINT" 

" : N 

EXT 

760 A= I NT < RND ( 1 ) # 1 3 ) +• 1 : B~ I NT ( RND ( 1 ) 
*<A(A) ) >+l:B*=PO*(A,B) :C=LEN(B*> : D= 
(37-C) /2:C*=P*(A) : LOCATED, 5:PRINTB* 
770 B-INT(RNDd) * (A (A) ) >+l 
780 PRINT 

790 INPUT" FORMA PARTE DE:"; PE* 
B00 IFPE*=C*THENGOSUB830: GOTO750 
B10 IFPE*="5OLUCION"THEN990 
820 GOSUB370: LQCATE0, 7: GOTO790 
830 GQSUB880:GOTO750 
840 FORT-0TO1000: NEXT 
850 GOTO750 



860 '-ACIERTO O FALLO 

870 FORT*30TO 1 3STEP- 1 : LOCATET, 7: PRI 

NT" " : NEXT : RETURN 

880 FORT=25TO0STEP-. 5: LOCATET, 15: PR 
I NT "ACERTADO " : NEXT 
890 LOCATE0, 15: PRINT"CERTADO " 
900 LOCATE0, 15: PRINT"ERTADO " 
910 LOCATE0, 15: PRINT" RTADO " 
920 LOCATE0, 15: PRINT" 
930 LOCATE0, 15: PRINT' 
940 LOCATE0, 15:PRINT"D0 
950 LOCATE0, 15:PRINT"0 
960 LOCATE0 , 1 5 : PR I NT " 
970 RETURN 
980 "SOLUCION 

990 PRINT: LOCATED, UíPRJNTB* 
1000 E==LEN ( < "FORMA PARTE DE:")+C*>: 
F=(37-E) /2: LOCATEF , 13: PRINT" FORMA P 
ARTE DE: " ; C* 

1010 FORT»0TQ1000S NEXT í GOSUB870: GOS 
UB880:GOTO750 

1020 FORT-0TO5: K$=INKEY*s NEXT: LOCAT 
E0„ 21 

1030 PRINT" PULSA ESPACIO PARA CO 
MENZAR 

1040 FORT=0TO75:K$=INKEY$: IFK*-""TH 

ENNEXTEL3E1 080 

1050 LOCATE0, 21: PRINT" 

H 

1060 FORT=0TO75:K*=INKEY*: IFK*= ,P,, TH 

ENNEXTELSE 1080 

1070 GOTÜ1020 

1 080 LOCATE0 „ 2 1 : PR I NT " 

■i 

1090 RETURN 



Test de listado i 



10 


- 58 


170 


-183 


330 


- 57 


490 


-159 


650 


-112 


810 


-172 


970 


-142 


20 


- 58 


180 


-159 


340 


-225 


500 


-241 


660 


- 83 


820 


- 85 


980 


- 58 


30 


- 58 


190 


- 95 ' 


350 


-203 


510 


-173 


670 


- 58 


830 


-207 


990 


- 94 


40 


- 58 


200 


-173 


360 


- 57 


520 


- 58 


680 


-160 


840 


-115 


1000 


-238 


50 


- 58 


210 


- 90 


370 


-213 


530 


-244 


690 


-162 


850 


-135 


1010 


-186 


60 


- 58 


220 


-173 


380 


-203 


540 


- 37 


700 


- 20 


860 


- 58 


1020 


-121 


70 


- 58 


230 


- 61 


390 


-226 


550 


- 14 


710 


- 62 


870 


- 5 


1030 


-225 


80 


- 58 


240 


-159 


400 


- 72 


560 


-140 


720 


-167 


880 


- 82 


1040 


-118 


90 


84 


250 


- 95 


410 


-148 


570 


- 63 


730 


-154 


890 


- 68 


1050 


- 72 


100 


-177 


260 


- 1 


420 


-241 


580 


-109 


740 


- 58 


900 
910 


- 1 


1060 


-118 


110 


-155 


270 


-205 


430 


-131 


590 


-174 


750 


- 69 


-188 


1070 


-150 


120 


-241 


280 


-180 . 


440 


-121 


600 


-237 


760 


-216 


920 


-106 


1080 


- 72 


130 


- 88 


290 


-241 


450 


-149 


610 


- 85 


770 


- 10 


930 


- 22 


1090 


-142 


140 


-159 


300 


-132 


460 


-159 


620 


-199 


780 


-145 


940 


-213 






150 


- 34 


310 


-121 


470 


- 87 


630 


- 8 


790 


-113 


950 


-145 


TOTAL: 


160 


-214 


320 


-148 


480 


- 58 


640 




800 


- 17 


960 


- 66 


13161 
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INVASOR 



10 

20 
30 
40 
50 
60 
70 
80 
#1 
90 
LÜR 
1 00 

8 
110 
120 
FA" 
130 
140 
150 
1 60 
170 
) ) 
180 
) ) ) 
190 
200 
210 
220 
Z30 
240 
250 
260 
270 
280 



REM INVASOR 
REM POR 
REM EUTIOUID 
REM PARA 
REM MSXCLUB 
P=0: GOSUB 1890 
REM PRESENTACION 

COLOR 7, 1, l:SCREEN3:0FEN"grp: "AS 

PSET (16, 16) :PRINT#1, "INVASOR":CO 
10 

PSET (80, 80) : PRINT# 1 , "POR" : COLOR 

PSETC0, 144) :PRINT#1, "EUTIQUIÜ" 
PLA Y " T255S 1 0M200AAACCCDDDBBACCE 
:FOR 1=1 TO 2000: NEXT: SCREEN 2,2 
REM DEFINE SPRITES 16*16 
FOR A=0 TO 2 
a*«" " : W*=" M 
FOR ' E»J TO 16: READ R$ 
Q*=Q*+CHR* (VAL ( "&B"+LEFT$ (R$, 8) 

W*=W*+CHR*< VAL ( "?<B"+RIGHT$ (R$¡, 8 

NEXT E 

SPRITE*(A>=Q*+W$:NEXT A 
REM DEFINE SPRITES 8*8 
FOR A=3 TO 5 :A*="" 
FOR Em-i TO 8: READ R* 
A$= A*+CHR* ( VAL ( " ?<B " +R* ) ) 
NEXT E 

SPRITE*(A)=A*:NEXT A 
REM DIBUJA EL PAISAJE 
A$="E20F20" : COLOR 8 



Manejando el tanque que se 
encuentra en la parte inferior de 
la pantalla, tienes que disparar y 
destruir al avión que vuela so- 
bre las montañas. Destruyelo 
antes de que se te acabe el com- 
bustible o de que sea él quien te 
destruya a ti. 



Variables: 

Q$ y W$ - Forman sprites de 16 X 16. 

A$ - Forma sprites de 8x8. 

R$ - Lee datos. 

P - Cantidad de puntos conseguidos. 

V - Número de vidas que te quedan. 

X - Coordenada del tanque. 

XI e Yl - Coordenadas del avión. 

X2 e Y2 - Coordenadas de la bomba del tanque. 

X3 e Y3 - Coordenadas de la bomba del avión. 

C - Cantidad de combustible. 

N.N1.Z.Z1- Contadores 

MyD - Estado del joystick o del teclado. 

R - Récord. 

F$ - Fin. 




2°0 FOR 1=0 TO 160 STEP 40 
300 DRAW"BM=I ; , 100"+ A* 
310 NEXT I 

320 DRAW"BM0, 100D2R200U2" 
330 PAINT (20, 100) , 8 

340 LINE(0, 100) -(256, 170) ,4,BF:LINE 
(0, 170)- (256, 191) , 1 2 , BF : N=RND C -TI ME 
) 

350 FOR 1=1 TO 100 

360 X=RND ( 1 ) *256 : Y=RND ( 1 ) *80 

370 PSET ( X , Y) , 15 

3S0 NEXT 

390 CIRCLEÍ240, 15) ,8, 14: PAINT (240, 1 
5) , 14 

400 GOSUB 1800 

410 ON INTERVAL=17 GOSUB 1840: INTE 

RVAL ON 

420 ON SPRITE GOSUB 1300:SPRITE ON: 

G03U.B 1370 

430 REM DA VALORES A LAS VARIABLES 

440 X=125: X 1=240: V=3: Y2=165: Y3=54: N 

=0: Y 1=36: C=248 

450 GOSUB 1390 

460 REM BUCLE PRINCIPAL 

470 M=STICK(l)OR STICK (0) : D=STRIG ( 1 

)0R STRIG(0) 

480 IF M=3 THEN X=X+5 ELSE IF M=7 T 
HEN X=X-5 
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490 IF V íS THEN X=5 ELSE IF X>250 T 
HEN X-250 

50!:' IF XI - * THEN X 1=250 : Y 1 ~Y 1 + 10 EL 
SE Xl-Xl-3 

510 IF Y1M75 THEN Yl=36 

520 IF DO0 ANO #F0 THEN N=l 

530 IF M=Í THEN GÜSUB 1410 

540 IF Xi . y • e AND X 1 < X+0 AND N1=0 T 

HEN Nl=*lS0EEP 

550 IF Ml«l THEN GÜSUB J 470 

560 FUT SPRITE 0, CX, 175) , i , 0: FUT SF 

RITE 1, (XI, Yl) . 10, 1 

570 GOTO =170 

580 REN DATAS DÉ SPRITES 
590 REM TANQUE PROPIO 
L00 DATA 00- :50000 110000000 
610 DATA 0000000110000000 
620 DATA 0 0 0 0 00 0 1 1 0 0 0 0 0 0 0 
630 DATA 0000000110000000 
¿40 DATA 0000001111000000 
650 DATA 00000 lililí 00000 
660 DATA 0000111001110000 
670 DATA 0000 1 1 i 1 1 1 i 1 0000 
680 DATA 0111111111111110 
690 DATA 0111-111111111110 
70% DATA 1111111111111111 
710 DATA ilTllilí 1 ¿Vil 111 
72$ DATA 0 1 1 m lililí 00 1 1 0 
730 DATA 0 1 1 0000000000 1 1 0 
"* 4 0 DATA 0 1 1 0000000000 1 1 0 
750 DATA 0110000000000110 
760 REM AVION ENEMIGO 
770 DATA 0000000000001111 
7 8 0 DATA 00 0 0 0 0 0 0 0 0 0 1 1 :!. 1 0 
790 DATA 00 i 1 1 00000 111110 
800 DATA 0101111111111111 
8 1 Cl DATA 111111111 00000 1 1 
220 DATA 000001 1 i 1 1 1 1 1 1 1 1 
830 DATA 0000000100010000 
840 DATA 0000011111111101 
850 DATA 0001111111111111 
860 DATA 0000011111111101 
870 DATA 0000000000000000 
830 DATA 0000000000000000 
890 DATA 0000000000000000 
900 DATA 0000000000000000 
910 DATA 0000000000000000 
920 DATA 0000000000000000 
930 REM ESPLOSION 
94 0 DATA 0000000000000000 
950 DATA 0001000001000000 
960 DATA 0001000000000000 
970 DATA 0 0 0 0 0 1 0 0 0 0 0 1 0 1 0 0 
980 DATA 0100001001001000 
990 DATA 0010000010000000 
1000 DATA 0001000010100000 



1010 DATA 0000100100010100 
1 0 2 0 DATA 0 0 0 1 0 1 0 1 0 0 1 0 1 0 0 0 
1 030 DATA 0000 1 0 1011 000 1 00 
1040 DATA 0000110100101000 
1050 DATA 0001001010010000 
1060 DATA 1010101101100000 
1070 DATA 0101010101010000 
1 030 DATA 00 1 1 1 1 1 1 1 1 3 1 1 1 00 
1090 DATA 0111111111111110 
1100 REM BOMBA DEL TANQUE 
1110 DATA 00010000 
1120 DATA 00111000 
1130 DATA 00111000 

\\H » A ™ ¡tes» 

1150 DATA 00111000 

1160 DATA 00111000 

1170 DATA 00010000 

1 1 30 DATA 00 1 0 1 000 

1190 REM BGMBA DEL AVION 

1200 DA T A 00000000 

1210 DAT- 01111101 

1220 DATA 11111110 

1230 DATA 01111101 

1240 DATA 00000000 

1250 DATA 00000000 

1260 DATA 00000000 

1270 DATA 00000000 

1230 REM VACIADOR 

1290 DATA 0,0,0,0,0,0,0,0 

1300 REM COMPRUEBA CHOQUE 

1310 SPRITE OFF: INTERVAL OFF 

1320 IF X>X!-8 ANDX::X:H-16AND175>Y1- 

8 AND 1750/1 + 1/, THEN GOSUB 1690 

3 330 IF X2--X1-8 AND X2ÍX1 + 16 AND Y2 

>Yl-8 AND Y2< Y 1+1 6 ' THEN GOSUB 1720 

1340 IF X3 -X-3 AND X3<X+-16 AND Y3>1 

75-3 AND Y3< 175+16 THEN GOSUB 1760 

1350 SPRITE ON: INTERVAL ONrRETURN 

1360 REM PONE PUNTOS 

3 37í? LINE<0.0>-(100, 10) , 1,BF:PSET(8 
, 1) ; F R I NT# 1 , " PUNTOS " ; P : RETURN 
1380 REM PONE VIDAS 

1390 LÍNE( 100,0)- (165, 103 , 1,BF:PSET 
(105, 1) , 1:PRINT#1, "VIDAS" ;V: IF V=0 
THEN GOTO 1520 
1400 RETURN 

1410 REM MUEVE DISPARO DEL TANQUE 

1420 IF Z=0 THEN X2=X+6:Z=1 

1430 RUT SPRITE 3, ( X2, y2) , 2, 3: Y2-Y2 

-9 

1440 IF Y2<28 THEN Y2=165:PUT SPRIT 
E 3, (256,256) , ,5:N=0: Z=0: RETURN 
1450 RETURN 

1460 REM MUEVE DISPARO DEL AVION 
1470 IF 11*0 THEN X3=X+6 : Z 1 = 1 : Y3-Y 1 
+ 12 
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1480 PUT SPRITE 4 , ( X3 , Y3 ) , 5 , 4 : Y3=Y3 
+ 1 1 

1.490 IF Y3M91 THEN Y3=Y 1 + 1 8: PUTSPR 

ITE 4, (256,256) , ', 5: N1=0: Z 1=0 

1500 RETÜRN 

1510 REM FIN 

1520 SCREEN 3:F$="^IN" 

1530 COLOR 7:F3ET(15, 16) , l:PRINTttl, 

F$ 

1540 COLOR 6: PSET (145, 16) , 1 :FPINT#i 
,F* 

1 550 COLOR 1 2 : P3ET ( 80 p 30 ) , 1 : PR I NT# J. 
,F$ 

1560 COLOR 6:PSET(15, 144) , i:FRINT#t 
, F* 

1570 COLOR 7:FSET '145, 144) , 1:PRINT# 
l,F* 

1580 BEEP : PLAY " T25504CCC05DDD06E Zi 
7FFF03GGG03BBB02AAA" : FOR I*=2 TC 200 
0:NEXT 

1590 SCREEN2 

1600 IF P>R THEN R=F 

1610 PSET ( 10, 10) , 1 : PFINT#1 , "TUS F UN 
TOS HAN SIDO" ; P 

1620 PSET (100,80) t IffRZNT'tti. " RÉCORD 
" ; R 

1 630 PSET < 1 0 , 1 70 > , 1 : PR I NTtt 1 , " QTP A 
ARTIDA, SI O NO" 
1640 Z*=INKEY* 

1650 IF Z*="S" OR Z*-"s" THEN RESTO 
RE: GLOSE: GOTO 60 

1660 IF Z*="N" OR Z4="n" THEN ENE 
1670 GOTO 1640 

1680 REM CHOQUE DE AVION, TANQUE 
1 690 PLAY " 39M2000T255O6CC " : PUT SPR I 
TE 0 , ( X , 1 75 ) , 7 , 2 s PUT SPR ITE i , < 256 , 
256) , , 5 : FOR 1=1 TO 500:NEXT:PUT 3PR 
ITE 0, (256,256) , , 5: N=0: Nl-0: Z-0: 2 1= 
0:V=V-1: Y 1=36: GOSUB 1390 
1700 RETUF.M 

1710 REM CHOQUE BOMBA DEL TANQUE, AV 
ION 

1 720 PLAY " S9M2000T255O6CD *' i P 1 JT SPR I 
TE 1, (XI, Yl) , 15, 2: PUT SPRITE 3,(256 
,256) , ,5: FOR í«'| TO 500: MEXT: PUT SF 
RITE 1, (256,256) , , 5: X 1=RND ( 1> *256: P 
=P+50 -. N=0 s z=0 : Y2= 1 65 : Y 1 -3& 
1730 GOSUB 1370:GfJSUB 1820 
1740 RETÜRN 

X7$0 REM CHOQUE BOMBA DEL AVION, TAN 
QUE 

1760 PLAY"S9M2000T255O3DCD" : PUT SPR 
ITE 0, (X, 175) , 10,2:PUT SPRITE 3, (25 
6,256) , ,5: PUT SPRITE 4 , ( 256 , 256 ') , , 5 
:FOR 1=1 TO 2000:NEXT:PUT SPRITE 0, 
(256, 256) g , 5: V=V-1: X1=RND ( 1 ) *256: NI 
-0:N=0 

1770 Y1=36:C=248:Z1=0:X=125:GOSUB 1 




390: GOSUB 1800 
1780 F.ETURN 

1790 REM PONE COMBUSTIBLE 
1 800 L I NE ( i 68 , 1 ) - . < 248 „ 9 ) , 4 , BF : PSET { 
168, 10) , 1 : PRINT#1 , " COMBUS" t RFTLJRN 
1810 REM INCREMENTA COMBUSTIBLE • 
1820 C-C + 20: IF O 248 THEN (8*24.8 
1830 LINE(C--20, 1)~(C,9) , 4, BF RETÜRN 
1840 REM DISMINUCION DEL COMBUSTIBL 
E 

1850 LINE(C, 1)-(C,9) , 1 
1360 C=C-1 

1870 IF C=168 THEN GOSUB L7£¿ 
1880 RETÜRN 

1890 REM INSTRUCCIONES 

1900 SCREEN 1:WIDTH 31 

1910 COLOR 15,4,4: KEYOFF 

1920 LOCATE 9,0: PRINT" INSTRUCCIONE 

B " 

1930 LOCATE 0, 8: PRINT: PRINT "Debes d 
estruir al avión evi tan-da que te a 
1 caneen sus bombas y vigila el comb 
ustible que se incrementara al des 
truir un avión, pero cuidado porque 
si se acaba, tu tanque se destruirá 

1940 LOCATE 0 , 20 : PR I NT " F'ul sa una te 
cía para comenzar" 
1950 A$= INKEY* 

1960 IF A*-"" THEN GOTO 1950 ELSE R 
ETURN 
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Test de listado i 



lí") 


0 


300 


- 1 0 1 


590 


0 


880 


- 132 


1 170 


5 


1 460 


0 


1750 


- 0 


20 


- 0 


310 


-204 


600 


-134 


890 


-132 


1 180 


- 6 


1470 


-219 


1760 


.... ->o 


30 


0 


320 


- 95 


610 


-134 


900 


-132 


1 190 


- 0 


1 480 


30 


1770 


- 29 


40 


0 


330 


— 2 — 


620 


-134 


910 


- 1 32 


1 200 


4 


1490 


-253 


1780 


• 142 


50 


0 


340 


-230 


630 


~ 134 


920 


- 1 32 


1210 


- 10 


1500 


-142 


1 790 


- 0 


60 


- 142 


350 


- 24 


640 


- 136 


930 


- 0 


1 220 


- 11 


1 5 1 0 


- 0 


1 800 




70 


0 


360 


- 64 


650 


-138 


940 


-132 


1230 


- 10 


1 520 


~ 1 4 1 


1810 


0 


80 




370 


- 58 


660 


- 138 


950 


-134 


1 240 


- 4 


1530 


- 95 


1820 


- 153 


90 


- 31 


380 


- 131 


670 


- 1 40 


960 




1 250 


4 


1540 


-224 


1830 


- 31 


1 00 


- 1 1 0 


390 


-192 


680 


-146 


970 


- 1 35 


1 260 


- 4 


1550 


-227 


i 840 


0 


110 


-212 


400 


-170 


690 


-146 


980 


-136 


1270 


- 4 


1560 




1850 


-139 


*120 


-215 


4 1 0 


-161 


700 


-148 


990 


- 134 


1 280 


- 0 


1570 


- 97 


1860 


-121 


130 


0 


'420 


-218 


710 


-148 


1000 


- 135 


1 290 


— 56 


1 580 


-174 


1370 


-207 


1 40 


- 175 


430 


- 0 


720 


-142 


1 0 1 0 


- 136 


1 300 


- 0 


1590 


-216 


1880 


-142 


150 


- 144 


440 


- 90 


730 


-136 


1020 


- 137 


131 0 


- 1 33 


1600 


-134 


1890 


0 


1 60 


-247 


450 


- 14 


740 


-136 


1030 


- 137 


1 320 


— 1 98 


1 6 1 0 


-149 


1 900 






lo/ 


A Ar';S 
HÜK' 


- 0 


750 


-136 


1040 


— 1 37 


1 330 




1620 


- 11 


1 9 1 0 


- 78 


1 Pf/i 
i. Olí' 


— 2 0 2 


470 


-167 


760 


0 


1050 


-136 


1 340 


— 


1630 


-174 


1920 


- 30 


190 


-200 


480 


-150 


770 


-136 


1060 


-139 


1350 


-161 


1640 


- 89 


1930 


-241 


200 


- 75 


490 


-255 780 -136 1070 


-138 


1360 


- 0 


1650 


- 11 


1940 


-156 


210 


- 0 


500 


-158 


790 -140 


1080 


-144 


1370 


-139 


1660 


-251 


1950 


- 64 


220 


-135 


510 


- 71 


800 


-146 


1090 


-146 


L 380 


0 


1670 


5 


1960 


-162 


230 


-241 


520 


... 43 


810 


-143 


1 100 


4 0 


1390 


- 24 


1 680 


- 0 






240 


-135 


530 


-214 


820 


-143 


1 1 1 0 




1 400 


-142 


1690 


-216 






250 


-200 


540 




830 


-134 


1 120 


- 7 


1 4 1 0 


- 0 


1700 


-142 






260 


-207 


550 


- 67 


840 


-142 


1 130 


- 7 


1420 


- 45 


1710 


- 0 






270 


- 0- 


560 


-202 


850 


-145 


1 140 


- 7 


1430 


•-. 22 


1720 -223 






280 


-247 




- 1 1 0 


860 - 142 1150 - 7 

870 -132 1160 - 7 










TOTAL : 

20325" * 


290 


-102 


2b0 


0 











SUSCRIBETE A ¡23 

Suscribiéndote no sólo tienes la seguridad de tener todos los meses tu 
MSX CLUB DE PROGRAMAS en tu casa sino que recibirás 12 
números pagando sólo 10 



BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



Nombre y apellidos 

Calle 

Ciudad 

D. Postal 

Deseo suscribirme por doce ni 



Provincia 

Teléfono 

i revista MSX CLUB DE PROGRAMAS a partir del número . 



números a la revista MSX CLUB Ut PROGRAMAS apartir del número 

que pago adjuntando talón a la orden de: MANHATTAN TRANSFER, S.A. - C/^Roca i Batlle, 10-12 - 08023 Barcelona 

Tarifas : España por correo noi 
Euror 




América por correo 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. 
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Programa 



■ Por Luis Ramón Giménez- 



ROMPECABEZAS 



Debes intercambiar las pala- 
bras AZUL Y ROSA de sus res- 
pectivos recuadros; pero te avi- 
samos, no es nada fácil ¡Atréve- 
te con este divertido programa ! 



90 COLOR , 1 , 
100 DIM A (4, 

11.0 



i, i - A 



10 RE!i ROMPECABEZAS 
20 FEM 

30 REM ORDENADOR MSX 
40 REM 
50 REM AZUL & ROSA 
60 REM 

70 REM Por Luis Ramcn Gimsnaj 
80 REM 

i 

5) sDEFINT A~Z 
X = i: v=i s C«t;5 
120 ROR 1*4 TO 4: Aí 
130 FGR 1=5 TQ 8:.A< 
140 A (2, 4 ) =9 
150 FOR í*¿ TO 3: A •• 
08 NEXT 

160 aPEN"SPF: M FOR DUTRUT' AS *1 

170 SCREEN 2,3,0 

180 COLOR 1 , 1 „ ). 

190 FOR J*í TO 9 

200 IF J*8 THEM J*4 

210 S$-"" 

220 FOR 1=1 TQ 32 

230 READ R 

240 S$=S$-*-CHF.$ (R) 

250 NEXT 

260 BRRITE*<J)*3* 
270 NEXT 

280 SPRITE*(3>«SFFITE*U> 
290 LINE( 29,27)- (151, 170: ,2, BF 
300 ttmt 34,32)--: 67, 165) . 1, ZC 
310 LINE( 73, 32) - ( 106, 165) , 1) BF 
320 LJMEí 112,32) -(145, 165) , 1 , BF 
330 LINE ( 68,66>~< 72, 98 ) , J , BF 
340 LINE <10-\ 99) -(11. i. 171) , 1«BF 
350 FOR 1=1 TO 4 
I- 



0 > * 1 0 : A < % , 1 



,33*1) ,5, 



-.1, (113,33* tt-4) ) , 1 



360 RUT SFRITE 
370 NEXT 

380 FOR 1-5 TO E 
390 PUT SPRITE 
3, I 
400 NEXT 

410 RUT SPRITE S> (74, 132) , 6, 9 
420 LINE (175, 30) -(230, 102) , 15, B 
430 COLOR 5 : DRAW " BM 1 S0 , 35 " : PR I NT# 1 
"AZUL" 




440 CCL2F i 1 s DRAW "BM 197, 50" : FRINT*.L 

450 C2L0F L3:DFAW ,, BM188,Ó5":PPÍNT*1 
"ROSA" 

460 COLOR .!.5:DFAW"BM184,90":PRINTtti 
, "é'UZLE" 

4/0 DRAW "BM 1^0, 140":PRINT#1 ¡1 "TIRADA 

480 ' ENERADA TECLADO 
490 GOSUB 1050 

500 XX*=INKEY*: IF XX*-" » THEN 630 

510 ON STICK (0) GOSUB 530,530,560, 

580,580,380,600,530 

520 GOTO 500 

530 IF Y=l THEN RETURN 

540 GOSUB 1 040 : Y=Y- 1 : GOSUB i 050 . F ET 

URM 

550 Y=Y+1: GOSUB 1050 

►0 IF X=3 THEN RETURN 
570 GOSUB 1 040 : X = X + 1 : GOSUB 1 050 : F ET 
URN 
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580 IF V «4 THEN i' : ETURN 

90 GOSUB 1 040 : Y= Y+ 1 : GOSUB 1 050 : RET 
URN 

600 IF K«1 THEN P ETURN 

610 GOSUB 1040: X=X-l:GOSUP 10502 RET 

URN 

620 * .VERI PICANDO 

0 IF A<X, Y>=0 THEN 500 
640 I F A «' ' , Y ■ L ) ~0 AND A ( X , Y - i ) ~0 TI ! 
EN 730 

0 Hl«0 

660 TF MX,Y*i) -0 OF A;X,Y-1) THEN 
i-i 

670 IF(CX=1 Ai ID Y -2: OR(X=2 AND Y --3 
| AND A<X+1, Y>=0 THEN IF H 1 * 3 THEN 
730 EL 3 3 Y" ••: :.<, Y)=9 THEN 500 ELSE 
-B 940: GOTO 810 

680 :p-:-:x-2 and y=2> or (x=3 and y= 

■• mÚ A • 1 , Y" ~0 THEN IF H1 = J THE 
M 7ÍÉ ELSE IF A'X, y>=9 THEN 500 ELS 

GOSÜB VmfBCtQ 310 
690 ÍF A<X f Y+:>=«? ~»EN GOSUB 8602 GO' 
■p^ Si 0 

700 IF AíX,.YtÍ>»0 THEN GDBUB 900:00 

710 30^2 

0 * NOY I MIENTO DE FICHAS 
730 0=7:303'.)!? 1050:0=15 

0 ON STIC!.: (0) GOSUB 760,760,770, 
760,730, 730, 790, 

7éé IF A(X,Y-1)=0 THE ~" [ 
TO 810 EL SÉ 800 
70 IP ACí,Y)^ THEN 730 ELSE IF (< 
= 1 AND Y=C> OF. (Y~2 AND Y*3Vj AND 
A<X + i,Y>~>3 THEN GOSUB f4^iG0TD 810 

LSE .300 ELSE 300 
7e0 IF* A(X, Y+1)=0 THEN GOSUB 360:00 

0 810 ELSE 000 
790 IF A -9 THEN 770 ELSE IF< (X 
-2 AND Y=2>ÜR(X=3 AND Y=3> ) AND A(X 
-1,Y>=0 THEN GOSUB 930:GOTG 310 ELS 
E 20-? ELSE 300 
800 ' Ll'S'tO*? 

810 FOR ZZ=i TO 4:IP A <. 1 , ZZ ) = ZZ * 4 T 

HEN NEXT ELSE GOTO 330 

820 FOR ZZ-t TO 4 s IF A(7,ZZY-Z2 THE 

N ICXtE^Oirtí 1070 

830 IP A(X,Y)OMM THEN MM=ACX,Y):TT 
=TT-1:LINE<170, 150) -(250, 15i) , 1,BF: 
DF AW " BM 1 80 , 1 50 " : PR I NT# 1 , TT 
840 GOSÜB 1050: GOTO 500 
850 7 MOVIMIENTO 

360 SWAP A(X, Y) , A(X, Y+l) : GOSUB 1040 
:Y=Y+1: GOSUB 1020: GOSUB 370:RETURN 
870 FOR L-l TO 33 



880 RUT SRRITE A ( X , v ) - i , (39*X~4 , 33* 
Y-33+L) ,00, A(X, Y) 
890 NEXT: RETURN 

900 SWAP A t X H Y ) , A ( X , Y- 1 ) : GOSUB 1 040 
: Y- Y- 1 : GOSUB 1020: GOSUB 91 0: RETURN 
910 FOR L=l TO 33 

920 RUT SRRITE A<X.Y>-Í, <3?*X"-4Í33« 
Y+33-L) , 00, A (X, Y) 
930 NEXT: RETURN 

940 SWAP A < X , Y ) , A X * 1 , Y ) : GOSUB 1 040 
: X* »1 : GOSUB 1020: GOSUB 950: RETURN 
950 FOR U*l T 0 39 

960 RUT SRRITE A < X , Y> -1 , (3°*X 4-39+ 

L,33*Y> ,00, A(X, Y) 
970 NEXT: RETURN 

980 SWAP A(X, YKA<X~i,Y> : GOSUB 1040 
: X=X-1 2 GOSUB 1020: GOSUB 990: RETURN 
990 POR L= L TO 3° 

1000 RUT SRRITE A ( X , Y ) - 1 , ( 39* X- 4 +39 
-L,33rn ,00, A(X,v) 
1010 NEXT: RETURN 

1020 IP A<X, Y^=<4 THEN COS ELSE IP 

A(X,Y)*9 THEN 00=6 ELSE 00^13 
1030 RETURN 

1040 LINE (39*X-5, Y*33) - ( 3 % X - 5 +33 , Y 
*33+33) , 1 , BP: RETURN 

1 050 L I NE ( 39 * X -5 , Y * 33 ) - ( 39 $ X -5+33 , Y 
*ZZ-*-ZZ ) , 0 , BP : RETURN 
1060 ' FINAL DEL JUEGO 

1 070 DRAW " BM20 , 1 80 " : PR I Nt# 1 , " L I STO ! 
■i 

1080 DRAW "BM 100 , 180" s PPINT* !. , "JUGAR 

OTRA(S.'N)?" 
1090 XX*=INKEY«: IF XX$="" THEN GOTO 

1090 

1100 IF XX$="N" THEN END ELSE IP XX 
*«"S" THEN RUN ELSE GOTO 1090 
1110 7 DATA DE SRRITES 
1120 DATA 255,254,248,248,241,227,2 
31,231, 192,192, 199,207,207, 199, 131, 
255,255, 127,31 ,31, 143, 1 a 9 , 23 1 , 2.3 1 , 3 
, 3, 227, 243, 243, 227, 193, 255 
1130 DATA 255, 123, 123, 159, 191/255,2 
55,252,243,225, 199, 143, 159, 123, 192. 
255,255,3, 1,241,227, 199 , 7, 31 , 127, 25 
5,255,253,249, 1, 1,255 
1140 DATA 255,131,199,231,231,231,2 
31,231,231, 227 , 227 ,241,2 40 , 243 , 254 , 
255, 255, 193, 227, 231, 231 , 231 , 231 , 231 
,231, 199, 199, 143, 15,31, 127,255 
1150 DATA 255,195,199,207,207,207,2 
07,207,207,207,207, 199, 195, 192,224, 
255, 255, 255, 255, 255, 255, 255, 255, 255 
, 255, 255, 255, 239, 207, 15, 15, 255 
1160 DATA 255,123,192,207,207,207,2 
07, 192, 192,207,207,207,207, 199, 131, 
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255,255, 15,7,227,243,243,227,3,7, 14 

3,207, i 99, 231, 243, 225, 255 

1170 DATA 255,224,192,199,207,207,2 

07 , 207 , 207 , 207 , 20-" , 207 ,199,192. 224 , 

255, 255, 7, 3, 227, 243, 243, 243, 243, 243 

, 243, 243, 243, 227, 3, 7, 255 

11S0 DATA 255,240,224,199,207,207,1 



99, 224, 240 
7, 



, 255, 3, 3, 243, Z 
43, 243, 22"^, 7, i 

190 DATA 255,251 
2, 251 , 243, 247 



223,207, 192, 192, 
.255,253, 35, -,22 



¡47, 243, 25i . 252,254, 
255,255,255,255.63,63,255,255,51 .51 
,207,23 o , i ?f ,211,63, 127,255 



Test de listadoi 



1 0 


- 0 


190 


•-192 


370 


- 1 3 1 


550 


-151 


730 


-199 


910 


-216 


1090 - 50 




ívt 


200 


~ 10 


380 


-194 


560 


- -3 740 

- 70 750 


- 2 


920 


- 70 


1100 - 23 


"\ SJ 


w 


¿- 1\0 


- 1 70 


390 


- 1 1 3 


570 


-125 


930 


- 3*5 


ti 10 - 53 


40 


- 0 


220 


-180 


400 


-131 


580 


- 80 


760 


-228 


940 


- 1 60 


1120 -246 




~ 0 


230 




410 




590 


- 72 


770 


-207 


950 


- 222 


1130 -• ¿a 


60 


~ 0 


240 


- 6 


420 


-368 


600 


- 76 


730 


-137 


960 


- 76 


1140 -158 


70 


- 0 


250 


t i 3 1 


430 


-119 


610 


- 71 


790 


-250 


970 




1150 -227 


S0 


- 0 


260 


-236 


440 


- 1 06 


620 


- 58 


800 


- 58 


980 


-202 


1160 -194 


90- 




270 


-131 


450 




630 


-215 


810 




990 




1170 -144 


100 


-226 


2S0 


- 146 


460 


-216 


640 


~ 42 


820 


-115 


1 000 


~ 76 


1180 - 45 


1 10 


•••• i. i k 


290 


- 6? 


470 


- 98 


650 


-121 


830 


-i #7 


1010 


- Ta 


1190 - 41 


120 




300 


-211 


480 


- 58 


660 


-187 


840 


- 127 


1020 


- 3 




1 30 


- ¿9 


310 




490 


-185 


670 


-130 


850 


- 5S 


1 030 


-142 




140 


-239 


320 


-111 




-219 


6S0 


-223 


860 


- 32 


1040 


-161 




1 50 


- 47 


330 


-24° 


510 


- 99 


690 




8^0 


• 21o 


1 050 


•210 




1 6 0 


-177 


340 


-137 


520 


- J 40 


700 


-248 


380 


- 70 


1060 


- 58 




1 70 






- 1 B6 


530 


.. -77 


710 


- 1 40 


890 




1070 


-212 


TOTAL: 








— 1 Q"7 


540 


• 73 


720 


- 58 


900 


- 124 


1080 


-102 


34240 




CONECTATE 



AL SOFT 



RUNNER Para librarte de un conjuro, debe- 
rás recoger 30 estrellas sagradas e 
asi la Invasión de tu dudad 



MAZE MAX. A bordo de unráptfo bólido. 
erfeUaberinto 8 ' 



monstruos de Demonia 




KARATE. Enfréntate a los mejores maes- 
tros de las artes marciales en combates 
completos. Si eres el mejor, podrás dar la 



BALLBLAZER. Estamos en el año 3097. 
¿Preparados para luchar? Con nuestra 
nave participaremos en el juego más atreví- 



QUEMAS 



ALUCINA 



EN TIENDAS ESPECIALIZADAS Y GRANDES ALMACENES . PROEIN, S.A. 

Distribuido en Cataluña por: DISCOVERY INFORMATIC, C/. Arco Iris. 75 - BARCELONA - Tels. 256 49 08 / 09 Velázquez, 10 - 28001 - TelS. (91 ) 276 22 08/09 



$0 



Programa i 



C.A.D 



por Josep Lainez y Salvador» 

Gracias a este programa po- 
drás entrar en el mundo del 
C.A.D. (Computer Aided De- 
sign) con tu MSX. Un intere- 
sante programa de diseño gráfi- 
co para los amantes del arte. 
Ver instrucciones en pág. 67. 



1 0 

20 
30 
40 
50 
60 
70 
30 
90 
100 
1 10 
H21 
H21 
120 



REM a************************ 

REM * COMPUTER AIDED DESIGN * 
FEM * C.A.D. * 

REM * by * 

REM *JQ3EP LAINEZ I SALVADOR* 
REM * para * 

REM * MSX--CLUB * 

REM * (c) Lie i da 1987 * 
REM ************************* 
REM *** PRESENTAD 10 *** 
PLAY " L J. 6 V i 504": CLS í SOPEEN 1 : W I DT 
: COLOR 13,1, 1 : KEYOFF: VP0KE8219, & 




21 k 



230 LOCATE 7 , 1 5 : PR I NT " sof t war i 
240 LOCATE 3, 17: PPIMT-p r e s a n t 
a" 

250 LOCATE 3, 1 9: PRINT"C. A. D. " 

260 FGR I»i TO 1000: NEXT 

275- PEÍ"! *** INICIO *** 

230 BOSUE 1510:SCREEN0:SCREEN 2,0,0 

: CLEAP 255. 60999 ! : DEFINTA-Z : LINE (0, 

0) -(255, 191 ) , 15., B 

281 FORI=0TQ255STEP5: LINE ( 1 , 0) - < 1 , 3 
) í 15: LINE (I, 191)-(I, 188) , 15:NEXTI:F 
ORI=0TOi?lSTEF5:LINÉ<0, I)-(3, I) :LIN 
E<255, I>-<252, I) : NEXTI : LINE (4, 4) --(2 
51, 187) , 15, B 

290 SPR I TE* ( 1 ) =CHR* < ?<HE0 ) +CHR* ( &HA0 
) +CHR* (&HE0) 

300 X=126: Y=95:L=lzC=15:PI=3. 14159: 
R=0z DEFUSR=55000 ! s DEFUSR 1=55013 ! 
310 FOF K=l TO 5 : KEY < K ) ON : NEXT 
320 ON KEY GOSUB 430,460,480,610,11 

330 REM *** LOOP PRINCIPAL *** 
340 GOSUB 1050 




350 RUT SPR I TE 0 , < X , Y ) , 6 , 1 
360 I$=INKEY$ - 

370 IF 1*="," THEN 01zPLAY n C" 
3S0 IF THEN C=15:PLAY"A" 

390 IF L=l THEN PSET ( X +• 1 , Y + '2 ) , C 
400 IF I*=CHR*(11> THEN PLAY"D" : LIN 
E CS 5) -(250, 186) , 1,BF: X-126:Y=95 
410 GOTO 340 

420 REM *** SUBE/BAJA LAPIZ *** 
430 PLAY"D":IF L THEN L-0 : RETURN 
440 IF L=0 THEN L=lz RETURN 
450 REM *** PINTAR ESPACIOS *** 
460 PLAY " D " : P A I NT ( X , Y ) , 15: RETURN 
470 REM *** TIRA LINEAS *** 
480 PLAY"D" 
490 GOSUB 1050 
500 RUT SPR I TE 0,(X,Y),6,1 
510 IF INKEY*=CHR* (27) THEN X1=X:Y1 
=Y:G0T0 520 ELSE 490 
520 PLAY"E" 
530 GOSUB 1050 
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540 PUT SPRITE -1 , < X , Y ) , 7 , 1* 

550 I $= INKEY* 

560 IF I$=" 1" THEN X2=X : Y2=Y: PLAY"E 
":LINE(Xl+3, Y1-+3) - (X2+3, Y2+3) , 15: PU 
T SPR I TE 1 „ ( 0 , 20? ) : RETURN 
570 IF I*="2" THEN X2=X : Y2=Y: PLAY"E 
,, :LINE(X1 ¡1 Y1)-<X2,Y2) , 15, B: PUT BPRI 
TE 1, (0,209) : RETURN 

580 IF I*="3" THEN X2=X : Y2=Y: PLAY"E 

":LINE(X1 !1 Y1)-(X2,Y2) ,15,BF:PUT SPR 

ITE1, (0, 20?) : RETURN 

590 GGTO 530 

600 REM *** COMPAS *** 

610 PLAY"D":X1=X: Y1=Y 

620 S=STICK<1) OR STICK<0> 

630 IF S=0 THEN 690 ELSE Yl«Yl+t*<S 

< 30R3=8 )-l*(S >3ANDS< 7 ) 

640 X1=X1+1*<S>5)~2*<S > 1 ANDS< 5 ) 

65*0 IF XK0 THEN X1=0 

660 IF Xl>252 THEN XI «251 

670 IF Y 1 < 0 THEN Y 1--0 

680 IF Yl>188 THEN Y 1 = 188 

690 PUT SPRITE 0, (XI , Yl ) „ 6, 1 

700 IF INKEY*=CHR*<27> THEN X2=X1:Y 

2=Y1:FLAY"E":GQT0 710 ELSE 620 

710 S-STICK(l) OP STICK(0) 

720 IF S=0 THEN 790 

730 Y2=Y2+i* (3<30RS=8) -3 * (S>3ANDS<7 
) 

740 X 2= X 2+ 1 * ( S >5 ) - 1 * <Q > 1 ANDS< 5 ) 
750 IF X2<0 THEN X2=0 
760 IF X2>252 THEN X2=252 

780 IF X2M8B THEN X2= 188 

790 PUT SPRITE l, (X2, Y2) ,7, 1 

B00 IF INKEY*=CHP$<27) THEN X1=X:Y1 

-Y: PLAY"E" s GOTO 820 

810 GOTO 710 

820 IF X1>X2 THEN R=X1-X2 
830 IF X 1 < X 2 THEN R=X2-X1 
840 IF Y1>Y2 THEN R=Y1 -Y2 
850 IF Y 1 < Y 2 THEN R=Y2-Y1 
860 UMINKEY* 

870 IF I*="í' THEN CIRCLE < X , Y) , R, 15 
, 2*PI/4, 3*PI/4: GOTO 1030 
880 IF I*="2" THEN C IRCLE ( X , Y) , R, 15 
,2*PI/4,PI:G0T0 1030 

890 IF I$="3" THEN CIRCLE ( X , Y) , R, 15 

,2*PI/4,5*PI/4:G0T0 1030 

900 IF l*m*4*. THEN CIRCLE ( X , Y) , R, 15 

,2*PI/4,6*P 1/4: GOTO 1030 

910 IF I*="5" THEN CIRCLE ( X , Y) , R, 15 

,2*PI/4,7*PI/4:G0T0 1030 

920 IF I$="6" THEN CIRCLE ( X, Y) j R, 15 

,2*PI/4,2*PI:G0T0 1030 

930 IF I$=»7" THEN CIRCLE (X, Y)*R, 15 

,2*PI/4 f PI/4s60T0 1030 

940 IF I*="8" THEN CIRCLE (X, Y) , R, 15 

,,2*PI/4.6*PI/4:GQTQ 1030 



950 IF I*="9" THEN C I RCLE ( X , Y< ) , R , 15 
:GOTO 1030 

960 IF I*="0" THEN CIRCLE (X, Y) 4 R, 13 
, PI,2*PI:G0Tü 1030 

970 IF I$= THEN CÍRCLE (X ,YKR,1S 

, ,PI:GOTO 1030 

980 IF I*»"®" THEN CIRCLE ( X , Y) ,p , 1 ~ 

,PI/4,5*PI/4:G0TCj 1030 

990. IF I*="#» THEN CIRCLE (X, Y) , R, 15 

,5*PI/4,P 1/4: GOTO 1030 

1000 IF 1*="*" THEN CIRCLE < X Y) « P ., 1 

5, 3*P 1/4, 7*PI fA : GOTO 1030 

1010 IF I*="7." THEN CIRCLE <X, Y> ,R, « 

5 , 7 * P I /4 , 3 * P I / 4 : GOTO 1 030 

1020 GOTO 860 

1030 PLAY"E" : PUT SPRITE 1 , i0- f 20?) : R 
ETURN 

1040 REM *** CONTROL *** 

1*050 S-STICK(l) OR STICK (0) 

1060 IF S«0 THEN RETURN 

1070 Y=Y+1*(S<30R3=0) -1 * <S>3ANDS<7> 

1080 X=X+1* (S>5) -1*<S>1ANDS<5> 

1090 IF X<3 THEN X=3 

1100 IF X>250 THEN X=250 

1110 IF Y<2 THEN Y=2 

1120 IF YM85 THEN Y=185 

1130 RETURN 

1140 REM *** INPUT/OUTPUT **# 
1145 PLAY " D " 



1150 I*«INKEY* 

1160 IF I*="l» THEN GOSUB Í2Í&5PSTJ 
RN 

1170 IF I*="2" THEN GOSUB 1440: RETU 
RN 

1180 IF I*="3" THEN GOSUB 1470: RETU 
RN 

1190 GOTO 1150 

1200 REM *** SALIDA IMPRESORA *** 
1210 PLAY"D" : FOR ÉO! -61000! T.ü 6119 
2 ! : POKE CO ! , 0: NEXT 

1220 BA7.-BASE ( 1 2 ) i- 248 : PO ! «60999 ! sFI 

7.=6143: XC*/.»248: YC%«0 

1230 FOR LI7.= 1 TO 32 

1240 FOR AS7.-BA7. TO FIÜÍ STEf 256 

1250 FOR CA7.=A57. TO AS7.-+7 

1 260 DA5C-VPEEK ( CA7. ) 

1270 IF DA7.=0 AND POINT ( XC7.-+4 , YC7.X 

>PEEK <StHF3EA) THEN DA/1=255 

12S0 • PO ! =PO i + 1: POKE PO ! , DA%i YC%»YCX 

4-1 

1290 NEXT 
1300 NEXT 

1310 PO! =60999! : BA7.=BA7.-B: FI7.=FI7.-B 

aXC7.=XC7.-8: YC7.=0 

1320 LPRINTCHR*(27) ; "B"; 

1330 LPRINT SPACE*(8); 

1340 LPRINT CHR*<27) ; "S" ; "0192"; 

1350 FOR CO!=61000! TG 61192! 

1360 FE7.=PEEK (CO ! ) : IF FE7.=9 THEN FE 



«■• K n|0*i'*.l.ll< a M r,,D«:p..|.r 



3. 370 
i 780 
i 390 

í 400 
1 4 L SI 

143*3 
.433 
1440 
1460 

14-; 
1478 
1480 

1300 

151 ¿3 
1320 
1330 



LPPINT CHR*(FEÜ) i 

NEXT 

LPRINT 

NEXT 

LPRINT CWPSK27) j "A" 
RETURN 

PEM *** GRABACION *** 

FLA - "E" 

Z«'JSR<0> 

BSAVE M CAS. CAD" , 38000 ! , 54334 i 
Z=USR1 m ;: RETURN 
"Eli *** LECTURA *** 
PLAYEE* 1 

22«U'SjF té) i E-LGAD ,, ,-£.3sCAD M 

22-USR1 <0> 

RETURN 

RSM *.** C2DIGG MA3UIÍ4A *** 
FGR X- 3T000! Tu 55025 ! : READV* 
PGKE X.VAL"^ !••!•' -v*: 5 S--S+-REEK ry 



IF 



S<: -1743 THEN BEEF ; : CLSS PR I NT 
ERROR EN LA CARGA DE DATAS" 



. 560 DATA 2 1 , 00 a 00 , 11,70,94,0!., 00 , 4 
í , 3D , 59 , 00 ,09,21,. 70 ¿ 94 , 1 i , 00 , 00 ,01, 



9 0 , 40,CD,3C,00,C? 
LS70 RETURN 



Test de listado i 



10 




250 


-160 


480 




720 




960 


- 32 


1 190 


- 25 


1430 


0 


20 


- 0 


260 


-105 


490 


-135 


730 


- 227 


970 


- -164 


1200 


- 0 


1435 


- 74 


30 


ü 


270 


- 0 


500 


-• 1 02 


740 




980 




1210 


-106 


1440 


- 136 


40 


- 0 


230 


17 


510 


-219 


750 




990 


90 


1220 


- 146 


1 450 


-179 


50 


~ 0 


281. 


- 5 


520 


- 74 


760 


-108 


1000 


-100 


1230 


- 37 


1460 


7 98 


60 


- 0 


2*0 


-230 


530 


-135 


770 


-124 


1010 


-101 


1240 


- 87 


1470 


- 0 


70 


- 0 


300 


-160 


540 


-104 


780 




1020 


-246 




- 1 1 0 


1475 


- 74 


80 


- 0 


3 1 0 


-177 


550 


- 72 


790 


•204 


1030 


114 


1260 


- 42 


1 480 


-104 


90 


- 0 


320 


- 39 


560 




800 


-184 


1 040 


0 


1270 




1 490 


-244 


100 


... 0 




- 0 


570 


-113 


810 


- 95 


1050 


- 64 


1280 


-136 




-142 


110 


-241 


340 


-185 


580 


-189 


820 


-172 


1060 


70 




- 1 3 1 


1510 


- 0 


120 


- 92 


350 


-102 


590 


- 1 7 1 


830 


- 174 


1 070 


-127 




-131 


1 520 


-123 


130 


- 39 


360 


... 7n 


600 


- 0 


Q40 


-176 


1080 




1310 


~ 1 05 


1530 


- 28 


140 


7 59 


370 


: 2 % 


610 


• 95 


850 


-178 


1090 


- 23 


1320 


-169 




-131 


150 


-173 


380 




620 


- 64 


860 


* 72 


1100 


- 4 


1330 


-•218 


1550 


-171 


160 


-173 


390 


- 24 


630 


- 54 


870 


-108 


1110 


- 28 


1 340 


— 5 


1560 


-120 


170 


- 170 


400 


-205 


640 


-137 


380 


- 93 


1 120 


-132 


1 350 


-231 


1570 


-142 


1 80 


-170 


4 1 0 


-236 


650 


-120 


890 


-112 


1130 


-142 


1360 


- 73 




1-90 




420 


- 0 


660 


- 1 05 


900 


-114 


1 140 


- 0 


1370 


- 1 1 0 






200 


- 99 


430 


~ 72 


670 




910 


-116 


1145 




1380 


- 1 3 1 






210 


-133 


440 


-198 


680 




920 


-103 


1 150 


- 72 


1390 


-157 






220 


-133 


450 


0 


690 


-200 


930 


-107 


1 160 


- 87 


1400 


-131 






230 


-180 


460 


-130 




- 4 


940 


-118 


1170 


- 63 


1410 


-109 


TGTAL: 


240 


-169 


470 


- 0 


~ 64 


950 


-203 


1180 


- 94 


1420 


-142 


16962 
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Programa 



Por Manuel y José M. a Sencialesa 



MUNDO 



¿Quieres destruir el mundo? 
Este programa te_permite hacer- 
lo. Puedes además utilizar sus 
gráficos de la bola del mundo en 
tus propios programas. 



10 ' MANUEL Y JCSE M§ 3ENCIALE5 

20 ' MALAGA FEBRERO- i 987 

30 * Vsrsian 3 

40 ' 

50 ' MUNDO 

70 " 

80 DEFINTA--J, L~Y 
°0 COLOR 14,1,5;: CLS : KEY OFF 
100 ON STOP GOSUB2030:STGF ON 
i 10 • 

120 " PRESENTACION 

130 * ~ ~ ~ ~ " ¡R Rt — — — 

140 ' 

150 PRI NT" ¿QUIERE DESTRUI F EL MUND 
0?" SPRINT 

im PE I WT " HACERLO ES FACIL, CUANDO 
APARBZCA EL DVNI SGLC TIENES GUE 
PULSAR LA BARRA E5FAC I ADORA u : PRINT 
: PRI NT "AL OVNI PUEDES GUIARL.0 CON 
EL CURSOR" SPRINT' 

i 70 PRI NT "SI QUIERES HACER APARECE 
R DE NUEVO EL MUNDO PULSA LA LET 
RA CAI" 

180 LOCATE0 ,19: PR I NT " NOTA : Esp er a ,.; 
nos 20 segundos" 

1 90 L0CATE5 ,21.a PR I NT " ( Pu 1 S a un ate 
:1a) " 

200 A*=INKEY*: IF A$= " " TNEN200 
210 ' 

220 ' DIBUJO 
240 • 

250 SOPEEN 2,0,0 

260 D6FU9R«&H4.¿ s A»USR (0) 

270 GOSUB1670 

280 ' 

290 ■ T i erra y Lu.na 
300 " 

310 CIRCLE (200,85) . 10, 15, , ,1.4 

320 F'AINT (200,85) p 15 

330 PSET<19B,87) , 6: PSET ( 197, 83) ,7: 

PSET(200,89) , 10: PSET ( 199, SS) ,8 

340 CIRCLE i 125, 95), 50, 4,,, 1 

350 F'AINT (125,95) ,4 

360 CIRCLE (125,95) ,50, 15,3. 14,0. . 




370 LINE' 123,^5' - a 20, l 15),, ¿ *sL-tfNE 
(128, 1 15)- (132, 1 15) , 14st KMC<¿ 32, 11 
5 ) •- < 136, 95 ) 1 4 

380 LIÑE (136,95) - í 140,90) , 14:LINE 

(140,90; • (170, 90- . 14« .JL 1NE< 135, 90> - 
< 133, 80) , 14 

390 LI NE ( 1 33 , 80 > - <1 25 , 30 ) „ i 4 ¡ L ¿ME í 
125, 80) -(125, "^7) , 14: LIME ¡ ££S .. 77> -• ( 
121,77) , 14:LINE(121,77) •• : 121. 76) , 1 
4 

400 LIME (121, 76) -'120,76) ., 14;LINE( 
120,76 • - :ii0,85) , 2 4:LINE(110,S5) -( 
1 10, 90) , 14 

410 LINEdl 0 i *?m .115,95) , 14: LI NE í 

115,95)- (125,95; , 14 

420 PAINJ ( 125, 90) , 14 

430 DRAW " c 1 4BM 1 20 , 75L 1 K2U2R2 " 

440 L I NE i 20 , 72 ) ~ ( 1 2 1 , 69 > , 14 

450 LINE( 121, 69) --120,08) , 14:LINE< 

120, 68) - < 124, 67) , 14 

460 DRAW "c 14BM1 24 , 67U 1 R 1 D 1 R2E2 " 

470 LINE(129,65)-(130,60) , 14 

480 DRAW" c 1 4BN130 , 60L1G4L1 U4E5R4F3 

E3R15" 

490 DRAW " BM 1 20 , 75M+2 , -3R2M+2 , +3G 1 R 



51 




2M-2 , -4R1F3D1R1E1M-2, -3E1 R2U2E2F.2F 
2G2L2F i D4R3F 1 D3L4D t " 

500 DRAW " BM 1 35 , 80M+5 , +8M+5 , -4*' 2, - 

5F7M+3, -2M+8, + 12E1FH 6 . 15" 

510 CIRCLE<125,?5* ¿£0., 14, .35, 1.22, 

1 

520 PAINiT i 14$« ¿5) , 1 4 

ÍCT PA I NT í 1 24 j 70 í , i 4 : RA IIMT < -126 , 70 ) 

, 14: RAI NT ( 120, 73) , 14 

540 C I RCLE C 1 25 , 4 9 ) , 1 5 , 1 5 . , , . 3 

550 RA INT ( 115, 50 v 

560 CÍRCLECÍ2"3, 142) , 15, 15, , , .3 

570 wmmxtm; im , ta 

580 DRAW " C 3 4BM ¿20* éiH : 4 t , * 5M- 7. Ll 
E1M+1 , -4" 

590 PA I NT UI0,é5' .. 1 4 

600 DRAW"Bttil6 ? £,2P.iI>i¡3lU2 M 

610 D r A7 ! -c M .: :?•!:'. .i.00 v ; -¿ , ■+ 1 0D20M- 6 , - 1 

2M-5. -2H-2, ~4U3E3H2 r 

620 DRAV; M EM00 !) 100U4M- :2, ~9'J2..777 7 

, +1L2 "::: -2E2LÍÜ Ll. . ~ 7 •" 7 ¿7 ; 727 V, 7F" : 2 

,-llR7M • 1 , -¿M- ""j. - v;-LV-6" 

630 FAü'-r " „ i 04^ .. ; 4 

¿40 ' " 2*^ #*H «taj ' .i ~ - - - •• 



• 7 C7r7T2- 
„772R7U2":P---r 



660 DRAW rt SH2 07. 
670 DRAW 

i 0? 1 1 4 

690 ' 

700 ? Spri L¿:: 

710 * 

720 A-S= r j;-:FÍ 7^H0" : 77 L S.3 

• " £ £HRé '.t.:Hia> •■ ;v -0) 

730 B**C.HR* a ScH0'? -7-!Ri:7 7:7 

0)*CHfif 'S*7? i "0 ir: t CS<f¡r> •• 2' -,i-!0) + C 
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330 
B90 

9>"0 

910 
9 2 
930 
940 
950 

970 
930 
990 
1000 
iñl® 
1070 
1070 
1040 
1 070 
1 07 7 
I07# 
1080 
1090 
1 IM 
1110 
1120 
1130 
1 140 



1177 
T 

1 190 

-3"'0 



7 :i 0> -2HRt ' ?íHí2 ) 

S - 7 RS CfcHiS) +CHR* <&H0> +CHR* <&H 
7 ÍF $ < 7 HE) +CHR* C &H i A) f-CHR* ( 8íHB ) 
-<* C&H0! • 7! ■!=•$ • 8<H0) 
D*=CHR* 7'.:H0) +-"8 , '+CHR$(?<HlE)+"> 
f-cHlE ^CHR»<<dHÍB)+CHft«<«eHC) + 

g" — ► , CHR^ <SíH7F) +" n 

7-r:- ; -::t :i > =a* 

8PRITE* (23 -E:$ ¿ 3PRITE* (3) =C$: SP 
:* Í4) =D4; s SPRITE* (5> 

7 RUTINA FRINCIFAL 



PUT 7P9ITE1, -X-2, V) „ 15, i 
PliT SF'í l TE2 , (250-XM*2,80+K) ,11 

Plf 77RITE3 H (5*XM. 150-.-X) . 15.2 
K*K*is XM*X«+Í 

tF C-«:l. T HENV'--Y -1 
"7 D--3 ENV-X- 1 '! 
17 1 -7 THENy*Y+í 
:~ 

I*"" X>~25S THENX=4 
IF X-.>0 T h'EN^"254 
& V : t * S:S THENX*4 
I er '-' >2" r HENY*l§0 
EEEP 

k*«:nkey* 

IF Kt-" "THEN BOfQ 1060 
IF »Or 7^-"A ,: THEM290 

v ->- - : I FX =r 234THEN Y* Y+ i 
¡33TC 270 



DIEF77 7 



li- ie -x^v:.- -110,60) 

50BÜE :210 

LIME •'>;, Y) - '125, 113) 

LINEÍX, Y) -;110,60) , í 

SQSUE í.2'0 

LIME : X,V)... (125,95) 

LINSCX.Y) - (1.25. 113; . 1 

20 SU 2 1C10 

rOF Lfí TD 500: NEXT 

-I-sE: v, Y'- • ( 125, 95) , 1 

2 1 7 7 LE í 125, 95 ) , 30 , t * 4 „ f : 

BOUNO 7,62sS0UN2 8, 15 

"GR 2 = 40 Tt3 250s2E^;¡.D 0,Z;T 

^CF 7=0 72 13- :CU7!D 3,0^ 
SCUrg c. :5iSGLND 7,7 





¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE MSX C1UE DE MAILING PUEDES ADQUIRIR 



BASIC TUTOR IDEALOCIC 



I ADAPTADORES TARJETAS | 
I INTELIGENTES 
BEE CARO Y SOFTCARDl 




W 



V7 



Deja el manual de lado, inserta este breviario de 
BASIC en cartucho y olvídate. No ocupa memoria. 

PVP 3.500 pts. 



No te quedes 
al margen 
y disfruta 
de las tarjetas 
inteligentes. 
lo último 
en soft. 



1 Nombre y apellidos 
I Dirección 

I 




Población 



CP 



Prov. 



Tel. 



| □ Tutor Basic Ptas. 3.500- 
i □ SweetAcorn Ptas. 5.200- 
' □ BarnStormer Ptas. 5.200, - 



□ Adaptador Softcard Ptas. 2.850- 

□ Shark Hunter Ptas. 5.200- 

□ Le Mans 2 Ptas. 5.200- 

I Gastos de envío por cada producto 100 - pts. Remito talón bancario de pts. a la orden de Manhattan 

Transfer, S.A. Enviar a MSX CLUB de MAILING, Roca i Batlle 10-12 bajos - 08023 Barcelona. 



□ Adaptador Bee Card Ras. 2.850 - 

□ Backgammon Ptas. 5.200- 

□ Chock'n Pop Ptas. 5.200- 



700 ' Graf icoAde b ir ras 

710 'IMtlttll^t^tt^lMIttttt 

720 D.T^jiyi^F 

730 SCR^MB^^^^'QPEN 

?60 PHES^Pfc^p^'ISPC]" 
770 LI^PSWÍS| 56,l),3,í 
780 ¡^192/10Vor1^1 TO 10:LINE(95 
• n-n^A intT) \> NF Yl 



msxclub 



de PROGRAMAS 



BASES 

1. Podrán participar todos nuestros 
lectores, cualquiera sea su edad. 

2. Los programas podrán ser envia- 
dos en cinta de cassette, debida- 
mente protegidos en su estuche de 
plástico, o en disco de 3 1/2 pulga- 
das. En este último caso se remitirá 
al participante un disco virgen en 
el momento de recibir el programa 
enviado. 

3. Todos los programas deberán lle- 
var la carátula adjunta, o bien foto- 
copia de la misma. 

4. Cada lector puede enviar tantos 
programas como desee. 

5. No se aceptarán programas ya pu- 
blicados en otros medios o plagia- 
dos. 

6. Los programas deben seguir las 
normas usuales de programación 
estructurada, utilizando líneas 
REM para marcar todas sus partes, 
subrutinas donde sean necesarias, 
etc. 

7. Todos los programas deben in- 
cluir las correspondientes instruc- 
ciones, lista de las variables utitili- 
zadas, aplicaciones posibles de 
programa y todos aquellos comen- 
tarios y anotaciones que el autor 

^considere puedan ser de interés 
para su publicación. 

PREMIOS 

8. Los programas serán premiados 
mensualmente, de modo acorde 
con su calidad, con un premio en 
metálico de 2.000 a 15.000 ptas. 

FALLO Y JURADO 

9. El Departamento de Programa- 
ción de MSX Club de V 



hará la selección de aquellos pro- 
gramas de entre los recibidos se- 
gún su calidad y su estructuración. 
10. Los programas seleccionados apa- 
recerán publicados en la revista 
MSX-Club de Programas, en la 
que se publicará, junto con el pro- 
gramaba cantidad con que ha sido 



premiado. 

11. Las decisiones del jurado serán 
inapelables. 

12. Los programas no se devolverán 
salvo que así lo requiera el autor. 

13. El plazo de entrega de los progra- 
mas finaliza el 1 de septiembre 
1988. 




MI PROGRAMA 



Programa ■ 



• 1» II "IU«I I . I 



1210 FÜR Z=0 Tü 13:SÜUND Z,0:NEXT 

1220 GOSUB 1900 

1230 FF=1: GOSUB 1'350 

1240 PAINT (99,95) ,11 

1250 GOSUB 1880 

1260 FF=1: GOSUB 1350 

1270 FOR H=42 TO 1 STEP-2 

1280 CIRCLE<125,95> ,H, 13, , , 1 

1290 CIRCLE ( 125, 95) , 55-H, 1 , , , 1 

1300 NEXT 

1310 GOSUB 1900 



Mov. efe Piedras 



1+P 
1+P 



1320 
1330 
1340 " 

1 350 X 1 = 1 25 : Y 1=95 : X 2= 1 20 : Y2=90 : X 3= 
1 08 : X4= 1 40 : Y3= 1 1 5 : Y4= 1 30.: A=0 
1360 FOR N=1T02 
1370 FOR P=l TO 3 
1380 FOR J=0 TO 5 
1390 PUTSPRITE4, (X1,Y1) , 11, 
1400 PUTSPRITE5, (X2,Y2) ,12, 
1410 PUTSPRITE6, <X3, Y3) , 14, 1+P 
1420 PUTSPRITE7, < X4, Y4)\ 14, 6-P 
1430 PUTSPRITE8, < X4+9, X2+4 ) , 1 4, 1+P 
1440 PUTSPRITE9, ( X4+7, X2-6) , 6, 2+P 
1450 PUTSPRITE10, ( Y2, Y4) , 15, 1+P 
1460 PUTSPRITE11, < Y4, X2-10) , 15, 1+P 
1470 PUTSPRITE12, < X3+6, Y2-4) , 15, 2+ 

14B0 PUTSPRITE13, ( X 1 - le>, Y2»4) , 6, 2+ 
P 

1490 Xl=Xl-P+9: Yl-Yl-P+7 

1500 X2=X2+P+6: Y2=Y2-5 

1510 X3=X3-12+3*P:Y3=Y3+P*2-9 

1520 X4=X4-8: Y4=Y4+8 

1530 NEXT 

1540 NEXT 

1550 IF FF=1 THENGQSUB 1 990 : RETURN 
1560 LINE(U0,80)-(140, 110) ,S.BF 
1 570 X2= 1 20 : Y 1 =S5 s X 1» 1 10: Y2=70 : X3= 
100: X4=130: Y3=105: Y4=70 
1580 GOSUB 1900 
1590 NEXT 

1600 FORT=1TO90STEP9:PUTSPRITE4, (X 
1+T,Y1) , 11,3:PUTSPRITE5, (X2+T,Y2-T 
) , 12,3:PUTSPRITE6, (X3-T, Y3-T) , 1-4,5 
:PUTSPRITE7, (X4-T, Y4+T) , 15,2 
1610 PUTSPRITEB , ÍX4-T,X2+T) , 14, 5: P 
JTSPRITE9, (X4-T, X2+T) ,6,2: PUTSPRIT 
E 1 0 , < Y2, Y4-T > , 1 5 , 4 : PUTSFR I TE 1 1 , ( Y3 
-T, X2+T) , 19,48 PUTSPR I TE 1 2 , (X3-T,Y2 
-T) , 15,5 
1620 NEXT 

1630 FF=1 : GOSUB 1990 

1640 LINE(60,40) -(190, 190) , 1 , BF 




1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1 800 
1810 
1 820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
Z 

1910 

1920 
16 

1930 



GOSUB 1 670 :GOTD 770 

■ ESTRELLAS 
» == 



FOR T=l TO150 

A=RND ( 1 ) *256 

B=RND ( 1 ) *192 

C=RND(1)*15 

PSET(A,B) ,C 

NEXT 

RETURN 

3" 

' DISPARO LASER 



SOUND 7,62: S4DUND8 , 1 5 
F0RZ=48T01 12: SOUND0, Z:NEXT Z 
SOUND 8,0 

FOR Z=0 TO 13:S0UND Z,0:NEXTZ 
RETURN 



' EXPLOSION 



FOR Z»0 TO 13: SOUND Z,0:NEXT 

SOUND 6,30: S0UND7 , 7 

SOUND 8, 16: S0UND9, 16:SOUND10, 

SOUND 12, 56: SOUND 13,0 
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Programa 



1940 RETURN 

1950 1 

1960 ' -BGRRA SPRITES PIEDRAS 

1970 * -=r = =: = = =r=s= = =:=sí==r = = =====:: 

J980 ' 



•lt I' niotic». I.|>« « O» n|0«: : 



Mi I» C(*SCf"IO*l»*.l.l>.- 



te» 



— 



1990 FÜR I=2TÜ13 

2000 PUTSPRITEI, (255, 192) ,5,4 

2010 NEXT 

2020 FF=0: RETURN 

2030 CLS:KEYON: COLOR 15,4,4:END 



Test de listados i 




-237 
-169 
-142 
- 5B 

1500 -147 W ~ 58 
1510 -238 1^70 - 58 
1520 - 95 
1530 -131 1990 -194 
1540 -131 2000 -204 



4 
136 



1550 
1560 
1570 
1580 
1590 -131 
1600 - 61 
1610 -170 



2010 -131 
2020 - 84 
244 2030 -140 
14 



TOTAL: 
21636 
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rograma i 



■Por Alberto Rodríguez ■ 



ROMPECABEZAS 



Debes encender todas las fa- 
rolas de la calle; pero siguiendo 
unas normas muy estrictas. Sólo 
puedes encender una farola si la 
anterior está encendida y las de- 
más apagadas. Algo similar ocu- 
rre a la hora de apagarlas. Acep- 
ta el reto de las tarólas. 




10 ' ROMPECABEZAS 
20 REM 
30 • MSX 
40 

u0 ? Alberto Rodríguez 
60 ' 

70 CLS: COLOR 5, 1,4 
80 ' DIBUJAR PANTALLA 
90 DIM L(9) :CC=0 
100 FOR 1=1 TO 9 
110 L<1>*0 
120 NEXT I 

130 OPEN"GRP: "FOR OUTPUT AS #1 
140 SCREEN 2,0,0 
150 COLOR 4, 1,4: 
160 READ XI, Yl 
170 FOR ZZ-Í TO 31 
180 READ X2,Y2 
190 LINE <X1,Y1)-(X2,Y2) 
200 X1=X2:Y1=Y2 
210 NEXT ZZ 

220 DATA 0,50,20,50,20,37,45,37,45, 
70,55,70,60,60,65,60,65,50,70,50,70 
,60,80,60,80,95,90,30, 11^,30, 125,95 



, 125,50, 130,50, 140,40, 155,55, 155,65 

, 175,65, 175,45, 195,45 

230 DATA 195,55,205,55,215,25,220,4 

0, 240, 40, 245, 50, 245, 65, 255, 65 

240 PAINT (0,0) ,4,4 

250 FOR 1=28 TO 228 STEP 25 

260 CIRCLE ( I , 175) ,5 

270 LINE (1-2, 115>-<I-4, 171) 

280 LINE(I+2, 115)-(I+4, 171) 

290 LINE ( 1-4, 179) - ( 1-8, 188) 

300 LINE (1+4, 179) -(1+8, 188) 

310 LINE(I-4, 182)-(I+4, 182) 

320 LINE(I-6, 185)-(I+6,185) 

330 LINE(I-8, 188)-(I+8, 188) 

340 LINE (1-7, 103)- (1+7, 103) 

350 LINE(I-5,96)-(I+5,96) 

360 LINE(I-5,'96)-(I-7, 103) 

370 LINE (1+5, 96) -(1+7, 103) 

380 PAINT (I, 100) ,4,4 

390 CIRCLE ( I , 108) ,7 

400 CIRCLE (I, 108) ,4, 10 

410 NEXT I 

420 CIRCLE ( 190, 20) , 1 1 , 10, 4. 1 , 1 . 65 
430 CIRCLE(186, 19) , 10, 10,4.3, 1.4 
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440 PAINT ( 198, 20) , 10, 10 
450 FOR ZZ=0 TO 25 
460 READ YY 
470 PSET<ZZ*10,YY) , 10 
480 NEXT 

490 DATA 10,0, 18, 15,2, 10,40,28, 1, 17 

,20, 1,5,26,35,8,48, 14,6,40,37,0,20, 

34,5,39 

500 COLOR 15 

510 FOR 1=1 TO 9 

520 PSET (1*25-7, 172) , 1 



530 PRINT#1, I 
540 NEXT I 

550 DRAWBM90, 00" :PRINT#1, "FAROLAS" 
560 ' PROGRAMA PRINCIPAL 
570 A*=INKEY*:IF A*="" THEN 570 
580 IF ASC(A*)<49 OR ASC(A*>>57 THE 
N 570 

590 CC=CC+1 :LINE (83, 60) -< 154,66) , 1, 
BF : DRAW " BM83 , 60 " : PR I NT# 1 , CC ; " VECES " 
600 N=VAL (A*) 
610 IF N-l THEN 670 
620 IF L(N-1>=0 THEN 570 
630 IF N=2 THEN 670 
640 FOR ZZ=1 TO N- 
650 IF L(ZZ)=1 THEN 
660 NEXT ZZ 
670 IF L(N)=0 THEN PAINT <N*25+3, 108 
) , 10, 10: GOTO 700 
680 CIRCLE (N*25+3, 108) , 3, 1 
690 PAINT CN*25+3, 108) , i, 1 
700 L(N)=1-L(N) 

710 IF L(1)+L(2)4L(3)+L<4)+L(5)+L<¿> 
)+L(7)+L(8)+L(9)=9 THEN 740 
720 GOTO 570 
730 •- FIN DEL JUEGO 
740 DRAW " BM 1 0 , 7 1 " : PR I NT# 1 , " TODAS LA 
S FAROLAS ENCENDIDAS!" 
750 IF CC<341 THENDRAW"BM70,82":PRI 
NT# 1 , "TRABAJO PERFECTO ! " : GOTO 780 
760 IF CC>341 AND CC<360 THEN DRAW" 
70,82":PRINT#1, "BUEN TRABAJO" : GOTO 
780 

770 PRINTttl , "PODIA ESTAR MEJOR" 
780 DRAW"BM65 P 140" : PRINT#1 , "OTRA PA 
RTIDA (S/N) ?" 

790 A*=INK.EY*:IF A*="" THEN 790 
800 IF A*="N" THEN END ELSE IF A*=" 
S" THEN RUN ELSE 790 





10 - 58 


130 -177 


250 


-181 


370 


- 34 


490 


-105 


610 


- 98 


730 - 58 


20 - 0 


140 - 82 


260 


-130 


380 


-122 


500 


-219 


620 


-158 


740 - 72 


30 - 58 


150 - 42 


270 


-117 


390 


- 65 


510 


-191 


630 


- 99 


750 -167 


40 - 58 


160 -198 


280 


-115 


400 


-131 


520 


-166 


640 


- 99 


760 -184 


50 - 58 


170 - 62 


290 


-204 


410 


-204 


530 


- 59 


650 


- 1 


770 -159 


60 - 58 


180 -200 


300 


-202 


420 


-127 


540 


-204 


660 


- 55 


780 -200 


70 - 43 


190 -195 


310 


-196 


430 


-123 


550 


-254 


670 


-142 


790 -158 


80 - 58 


200 - 64 


320 


-206 


440 


-190 


560 


- 58 


680 


-160 


800 -131 


90 -253 


210 - 55 


330 


-216 


450 


- 55 


570 


-193 


690 


-164 




100 -191 


220 -186 


340 


- 44 


460 


- 57 


580 


-160 


700 


-201 




110 -230 


230 - 32 


350 


- 26 


470 


-246 


590 


-219 


710 


- 53 


TOTAL: 


120 -204 


240 -224 


360 


- 36 


480 


-131 


600 


-134 


720 


-211 


10473 
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E3E3 



Programa! 



iPor F.R. Miret. 



GUSANILLO 



Debes conducir al gusano 
loco para que llegue a su comida 
sin chocar con las numerosas 
rocas que obstruyen su camino. 
El juego presenta una dificultad 
progresiva y puede llegar a ser 
un verdadero reto el < 
pasar de pantalla. 







10 ' 

20 ■ *************** 

30 ' * * 
40 ■ * GUSANILO * 
50 1 * * 
60 * F.R. Miret * 
70 ' * * 
B0 ' *************** 
90 ' 

100 DEFINT A- Y 

110 IF PJUAYCD— 1 THEN 110 

120 Din A (105) 

150 NI-UN2»! 

160 B*<1)--="BAJA" 

170 B$(2)="MEDIA" 

180 B*(3) «"ALTA" 

190 V=3 

200 V1=V 

210 COLOR 4,1,1 

220 FOR 1=1976 TO 1991í RÉAD Q: VPOKE 
I,Q:NEXT 

230 FOR 1=336 TO 343: READ QsVPOKÉ I 
, Q: NEXT 

240 FOR 1=1440 TO 1447: READ Q: VPOKE 
I, Q s NEXT 

250 FOR 1=1320 TO 1327: READ QsVPOKE 
I,Q:NEXT 

260 VPOKE 8223, 225: VPOKE 8222,161 
270 VPOKE 3212, 193 
280 VPOKE 3197,97 

290 PRINT" « K S GUSANILOCO * » 

«"iPRIKT 

300 PRINT: PRINT: PRINT "INTENTA COMER 
TE TODAS LAS rS SIN CHOCARTE CON UNA 

* NI CON TU 0 " 
310 PRINT: PRINT: PRINT "HAY 3 PANTALL 
AS Y 3 VELOCIDADES " 

320 PRINT: PRINT"PARA EMPEZAR TIENES 
5 VIDAS » 

330 PRINT: PRINT: PRINT"PERO PUEDES C 
ONSEGUIR BONIFICA- CION POR COGER T 
ODAS LAS rí SIN PEGARTELA" 
340 PRINT: PRINT: PRINT: PRINT" 



PULSA UNA TECLA " 
350 IF INKEY$<>"" THEN 350 
360 R=RND(1) : A*=INKEY*: IF A*="" THE 
N 360 
370 CLS 

380 FOR 1=6144 TO 6175: VPOKE 1,180: 
VPOKE 1+736, 180: NEXT 
390 FOR 1=6144 TO 6911 STEP 32 
400 VPOKE 1,1 80: VPOKE 1+3 1,180 
410 NEXT 

420 FOR 1=1 TO 24 

430 R=INT(RND(l)*700)+6208 

440 IF VPEEK(R>>32 THEN 430 ELSE VP 

GKE R, 165 

450 NEXT 

460 FDR 1=1 TO 10*N1 

470 R=INT(RND(l)*700)+6208 

480 IF VPEEK(R)>32 THEN 470 ELSE VP 

OKE R,42 

490 NEXT 

500 X=6177 

510 D=0:D1=0 

520 E=100 

530 F=99 

540 Y=0: VPOKE X,247 

550 FOR 1 = 1 TO* 5* (3-N2) : D=STICK ( 1 ) + 

STICK(0):IF D=0 OR D=D1 THEN NEXT 

560 IF D=0 THEN D=D1 

570 IF D=0 THEN 540 

580 IF D=l THEN Y=-32 

590 IF D=5 THEN Y=32 

600 IF D=3 THEN Y=l 

610 IF D=7 THEN Y=-l 

620 IF Y=0 THEN 540 

630 IF VPEEKÍX+Y) >32 THEN GOSUB 710 

640 A(F)=X:F=F-1 

650 VPOKE X,248:X=X+Y 

660 VPOKE A (E) , 32: E=E-1 

670 D1=D 

680 IF F<5 THEN F»100:B=B+1 
690 IF E<5 THEN E=100 
700 GOTO 540 

710 IF VPEEK(X+Y)«165 THEN BEEPs E=E 

+NliN-N+l:IF N>23 THEN 960 

720 IF VPEEK<X+Y)=1B0 THEN BEEP:Y=0 
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: RETURN 700 

730 IF VPEEK<X+Y>=243 THEN BEEF: Y=0 
: RETURN 760 

740 IF VPEEK(X+Y)=42 THEN BEEF:Y=0: 
RETURN 760 
750 RETURN 

760 IF F>E THEN K=F:F=5 

770 J=96:V=V~1 

780 FÜR I=E TO F STEP -1 

790 VPOKE A ( I ) ,32 
800 J-J-l 

810 PLAY"T255L64N=J; " 

820 IF PLAY<1>=~1 THEN 820 

830 NEXT 

840 IF I<5 THEN F=K: E= 100: GQTÜ 780 
850 G=0 

860 FÜR 1=1 TO 9 

870 B < I ) =VPEEK ( 6599+ I ) 

BB0 NEXT 

890 LOCATE 8,14:PRINT" VIDAS";V 
900 FOR 1=1 TO 1500: NEXT 




910 IF V<1 THEN BEEP: PLAY"CDDCDEEFF 

EGABA" : RUN 

920 FOR 1=1 TO 9 

930 VPOKE 6599+ I,B (I) 

940 NEXT 

950 E=100:F=99: VPOKE X, 32: GOTO 500 
960 VPOKE X, 248: VPOKE X+Y,247 
970 PLAY " T255L64ABEf A " 
980 N1=N1+1 

990 IF Nl>3 THEN N1=1:N2=N2+1 
1000 IF N2>2 THEN N2=3 
1010 N=0 

1020 LOCATE 6,10:PRINT" PANTALLA NU 
MERO"; NI 

1030 LOCATE 6,12:PRINT" VELOCIDAD " 
;B*(N2> 

1040 LOCATE 8,14:PRINT" VIDAS" ; V 
1050 IF V1=V THEN LOCATE 6,16:PRINT 
" + BONIFICACION ":V=V+1 
1060 V1=V 

1070 FOR 1=1 TO 5000: NEXT 
1080 CLS 
1090 GOTO 380 

1100 DATA 65,93,62,107,127,119,54,2 
8 

1110 DATA 60,118,223,237,255,215,12 
6,60 

1120 DATA 24,120,252,218,190,126,10 
8,48 

1130 DATA 81,146,164,127,254,75,146 

1140 DATA 130,214,254,214,146,24,48 
, 16 



Test de listado ■ 



i® 


* m 


190 


- 91 


370 


-159 


550 


-239 


730 


- 8 


910 


- 56 


1090 - 20 


20 


- 58 


200 


-204 


380 


-214 


560 


- 81 


740 


- 58 


920 


-191 


1100 -151 


30 


- 58 


210 


- 78 


390 


-214 


570 


-213 


750 


-142 


930 


- 4 


1110 - 30 


40 


- 58 


220 


-237 


400 


- 85 


580 


-243 


760 


-227 


940 


-131 


1120 - 29 


50 


- 58 


230 


- 9 


410 


-131 


590 


- 5 


770 


-129 


950 




1130 - 48 


60 


- 58 


240 


-177 


420 


-204 


600 


- 6 


780 


-254 


960 


- 37 


1140 -233 


70 


- 58 


250 


-193 


430 


- 50 


610 


-252 


790 


-220 


970 


-177 




80 


- 58 


260 


- 51 


440 


- 44 


620 


-234 


800 


-135 


980 


-240 




90 


- 58 


270 


-242 


450 


-131 


630 


- 79 


810 


-187 


990 


-146 




100 


- 56 


280 


-131 


460 


- 48 


640 


-216 


820 


-193 


1000 


-105 




110 


-248 


290 


- 94 


470 


- 50 


650 


-116 


830 


-131 


1 0 1 0 


- 78 




120 


-144 


300 


-198 


480 


-217 


660 


-143 


840 


?8 


1020 


- 32 




130 


-200 


310 


-207 


490 


-131 


670 


-168 


850 


1030 


- 66 




140 


-175 


320 


- 76 


500 


-156 


680 


- 9 


860 


-191 


1040 


- 81 




150 


- 59 


330 


— 1 35 


510 


-243 


Ó90 


- 87 






1 050 


-225 




160 


- 10 


340 


- 8 


520 


-167 


700 


-181 


880 


-131 


1060 


-204 




170 


- 93 


350 


-224 


530 


-167 


710 


- 15 


890 


- 81 


1070 


- 25 


TOTAL: 


180 


- 32 


360 


- 33 
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I i SIN BOMBOS NI PLATILLOS ! 

La editorial Manhattan Transfer, S.A. 
Se gana a pulso la confianza del lector. 
Cada una de sus publicaciones tienen el 
objetivo específico de servir al lector/usuario. 

MANHATTAN 
TRANSFER, S.A. 

No se limita a 
llenar páginas 
las llena de contenido 
A la vanguardia de la prensa útil 

CP COMPACT - PCompatible - MSX Extra - MSX Club de Programas 




MUSIC MODULE , 



,Por Willy Miragall, 



LA MUSICA 

EN LA PUNTA DE 

TUS DEDOS 



El MUSIC MODULE es un di- 
vertido instrumento musical 
que se pone al alcance de los 
usuarios de MSX. Destaca por su sor- 
prendente facilidad de uso. Por prime- 
ra vez nos encontramos con un instru- 
mento que no precisa de ningún cono- 
cimiento musical para su uso, siendo a 
la vez un interesante aparato para los 
introducidos en el mundo musical. 
Con el MUSIC MODULE podrás 



componer e interpretar todo tipo de 
melodías, desde clásicos hasta los te- 
mas pop de más rabiante actualidad, 
acompañado por un fondo musical de 
cinco instrumentos independientes 
que lo convierten en el primer módulo 
de bajo coste que permite esta posibili- 
dad. 

Pero MUSIC MODULE no es sólo 
un sintetizador excepcional. Incorpora 
también un dispositivo de muestreo de 



De todos son conocidas las ex- 
celentes capacidades sonoras de 
los MSX. No contentos con 
ellas, los técnicos de Philips han 
desarrollado el MUSIC MO- 
DULE, uno de los periféricos 
más espectaculares entre los 
MSX. 



sonido gracias al cual se puede digitali- 
zar cualquier sonido y modificarlo 
creando de este modo efectos especia- 
les hasta ahora veteados a los especia- 
listas en sonido. 

Encontramos también en este inte- 
resante aparato un interfaz MIDI, que 
permite conectarlo a los instrumentos 
musicales que cuenten con el mismo, 
pudiendo llegar a controlar 6 instru- 
mentos diferentes simultáneamente. 



TtOfJf 

m J. ¡ } Conectar ¿MS \ 
ÍN. 4) MIDI THRU. 5 y 6) Salidas HI FÍ. 'fJ^^^M 
ni Jo.-, y 20 acompañamientos. 8) Chip de soniti* 
;. 9) Cortee/ornara teclado ojn 
leí volumen del núchifo 



■ demuestra su 
MIDI 
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MÜSIC MODULE 

En el estuche en que se comercializa 
este módulo musical encontramos, 
aparte de dicho módulo, dos manuales 
(uno de funcionamiento y otro de in- 
troducción a la notación musical -no- 
tas, partituras, etc.-) y una cinta de cas- 
sette. En esta cinta se encuentran una 
amplia variedad de sonidos para poder 
generar efectos especiales, así como 
instrumentos, que podremos digitali- 
zar y utilizar con el MUSIC MODU- 
LE. 

Exteriormente el módulo tiene la 
apariencia de un cartucho de juegos de 
gran tamaño (como un controlador de 
disco) plagado de contactos y conexio- 
nes a todo su alrededor. Demos un rá- 
pido repaso a las conexiones que incor- 
pora este aparato. 

Viendo el aparato de frente, y empe- 
zando por la derecha, encontramos los 
tres conectores MIDI (Midi IN, OUT y 
THRU) que permiten interconectar el 
módulo con otros instrumentos musi- 
cales. De estos conectores y su utiliza- 



ción hablaremos más adelante. 

Encontramos también dos conecto- 
res de salida audio para aparatos de 
alta fidelidad u otros aparatos que utili- 
cen sus mismas conexiones. 

En la parte izquierda del módulo hay 
dos conectores de entrada, uno para el 
micrófono externo (el módulo incor- 
pora uno en su propia carcasa) y otro 
para entrada de audio procedente de 
un aparato de alta fidelidad o cualquier 
otro aparato con la salida apropiada. 
Existe también, junto a estas conexio- 
nes, una entrada para conectar un te- 
clado externo opcional. Gracias a este 
teclado podremos interpretar con el 
MUSIC MODULE de forma similar a 
como lo haríamos con un sintetizador 
convencional. 

Y finalmente encontramos la abertu- 
ra del micrófono que incorpora el MU- 
SIC MODULE para la síntesis de soni- 
do y el potenciómetro que ajusta el vo- 
lumen del mismo. 

Como se puede apreciar, en el aspec- 
to «conexiones» no se echa a faltar 
nada importante, ya que puede, gracias 







al conjunto de conectores que incorpo- 
ra, relacionarse con cualquier tipo de 
instrumento o electrodoméstico musi- 
cal. 

CONECTEMOS EL MUSIC 
MODULE 

El MUSIC MODULE se conecta a 
nuestros MSX como lo haría cualquier 
cartucho de juegos. Tras conectar el 
módulo con el ordenador apagado 
procedemos a conectar este último. 

A los pocos segundos aparece ante 
nosotros la pantalla del MUSIC MO- 
DULE y si tenemos el volumen de 
nuestro televisor algo alto podremos 
oír uno de los 20 ritmos preprograma- 
dos que incluye el módulo en su reper- 
torio musical. 

La pantalla del MUSIC MODULE, 
aunque presenta cuatro recuadros di- 
ferenciados, debemos dividirla en dos 
zonas. La parte superior corresponde 
al pentagrama y al conjunto de notas y 
símbolos que en él podemos utilizar. 




12 
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MUSIC MODULE. 



La parte inferior de la pantalla co- 
rresponde a la zona de menús con la 
que podemos controlar la totalidad del 
programa. 

En principio, en esta zona encontra- 
mos el menú de melodía. Desde este 
menú podemos grabar una melodía to- 
cada por nosotros en la memoria del 
ordenador, reproducir una melodía 
anteriormente grabada, cambiar el tipo 
de acompañamiento, el tempo -veloci- 
dad a la que se interpreta la melodía-, y 
el volumen del instrumento que este- 
mos tocando en este momento. 

Existe además la posibilidad de con- 
mutar entre modo profesional o modo 
aficionado. En este último modo (en el 
que se encuentra el aparato al conectar 
el ordenador), sea cual sea la nota que 
toquemos en el teclado de nuestro 
MSX, el MUSIC MODULE encontra- 
rá la armonización adecuada con lo 
que, toquemos lo que toquemos, siem- 
pre sonará bien. 

Gracias a esto, y con sólo seguir el 
ritmo del acompañamiento, podremos 
interpretar a nuestro gusto, sin miedo a 
desafinar. El efecto es, por lo demás, 
muy logrado, ya que suenan simultá- 
neamente 5 instrumentos -el acompa- 
ñamiento- además del elegido para to- 
car la melodía pulsando las teclas de la 
segunda fila de nuestro MSX. 

Cabe resaltar que el módulo incor- 
pora 20 acompañamientos a cinco ins- 
trumentos más batería gracias a los 
cuales cualquier melodía que toque- 
mos, por sencilla que ésta sea, parecerá 
trabajo de músicos profesionales. Hay 
que decir que los mejores resultados 
sonoros se obtienen cuando el MUSIC 
MODULE se conecta a un equipo de 
alta fidelidad. 

Siguiendo con los acompañamien- 
tos, citamos a continuación algunos de 
los más interesantes: CLASICO, DIS- 
CO, ROCK & ROLL, REAGAE, 
ARABE, INDIO, ESPAÑOL, ESCO- 
CES, HUNGARO, LATINO, 
SWING, FUNKY, y un largo etcétera 
que recorre los estilos musicales de un 
gran número de países y épocas dife- 
rentes. 

MAS MENUS 

En la parte inferior derecha de la 
pantalla aparecen 10 figuras. Cada una 
de estas figuras representa un menú 
como el de melodía del que acabamos 
de hablar. Para acceder a estos menús 
sólo hemos de dirigirnos a ellos con un 
ratón o bien con las teclas de control 
de. 







* Menú de instrumentos: Desde 
este menú podemos modificar cual- 
quiera de los cinco instrumentos que 
forman cada uno de los acompaña- 
mientos, así como el instrumento con 
el que tocamos la melodía de entre un 
total de 60 instrumentos diferentes. En 
la tabla adjunta incluimos la lista de los 
instrumentos accesibles desde el MU- 
SIC MODULE. 

* Menú de control de volúmenes: 

Con este menú podemos subir o bajar 



el volumen de cada uno de los seis ins- 
trumentos que pueden llegar a sonar si- 
multáneamente, así como el de la bate- 
ría que acompaña a cada uno de los rit- 
mos preprogramados. 

* Menú de batería: Podemos, a tra- 
vés de él, modificar el sonido de la ba- 
tería entre 10 tipos diferentes. Pode- 
mos además tocar manualmente la ba- 
tería con las teclas del teclado. Hemos 
de decir que la calidad sonora de la ba- 
tería no es, ni mucho menos, compara- 



La conexión del MUSIC MODULE a nuestros MSX se realiza de igual forma que con un cartucho 




Observamos en esta foto los tres conectores MIDI (IN, OUT, y THRU) y las dos salidas HI-FI. 




En esta foto las conexiones de entrada HI-FI, el potenciómetro del micrófono y el conector del tecla- 
do opcional. 
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ble a la calidad sonora del resto de los 
efectos e instrumentos. 

* Menú de disco/cinta: Gracias a 
este menú podemos grabar en cinta o 
disco tanto las melodías que hayamos 
generado como los sonidos digitaliza 
dos por el MUSIC MODULE. El mó- 
dulo detecta por sí mismo si tenemos o 
no conectada una unidad de disco. Se- 
gún dispongamos o no de esta unidad 
aparecerá el menú de disco o el de 
cinta. 

Existen además otros tres menús de 
los que hablaremos a continuación: 



son los menús de efectos especiales, di- 
gitalización de sonidos y MIDI. 

EFECTOS ESPECIALES 

Una de las opciones más sorpren- 
dentes de este módulo es que incorpo- 
ra un generador de efectos especiales. 
Gracias a esto podemos generar, en 
tiempo real, varios interesantes efectos. 

ECO: Cuando seleccionamos la 
opción eco a todos los sonidos que lle- 
guen al MUSIC MODULE, bien por 
medio de su micrófono incorporado o 



Observam< 
da el menú 



ol del MUSIC MODULE i 



I " | f 

Ó . I ~ 




En la parte inferior izquierda de la pantalla se encuentra el menú de volúmenes, que nos permite mo- 
dificar los de cualq - '— 




bien por la entrada de alta fidelidad si 
ésta está conectada, se les añadirá un 
eco que podemos variar entre 25 mili- 
segundos (una escasa reverberación) y 
1.25 segundos (eco extremadamente 
lejano). 

También podemos modificar el tono 
de los sonidos que llegan al micrófono 
sin variar su velocidad. Gracias a este 
efecto podemos conseguir desde voces 
tipo "Darth Vader" de "La Guerra de 
las Galaxias" hasta voces tipo "Pitu- 
fos M o cualquier otro cambio de tono 
que se os pueda ocurrir. 

Estas modificaciones al sonido (tan- 
to el eco como el cambio de tono) son 
llevadas a cabo por el módulo en tiem- 
po real. Es decir, podemos hablar por 
el micrófono y los cambios se oirán ins- 
tantáneamente en la salida, bien del te- 
levisor, bien de un equipo de alta fideli- 
dad. 

Como inconveniente hemos de decir 
que no se pueden utilizar ambos efec- 
tos al mismo tiempo, y que tampoco se 
pueden grabar estos efectos en la me- 
moria del MUSIC MODULE para uti- 
lizarlos más adelante. Tampoco se pue- 
den utilizar los efectos mientras este- 
mos tocando una melodía. 



* DIGITALIZADOR DE SONI 
DOS: En este menú observamos, en 
primer lugar, una barra móvil en la par- 
te inferior de la pantalla. Esta barra 
mide el nivel de sonido del micrófono 
de entrada. Con el potenciómetro que 
incorpora el MUSIC MODULE pode- 
mos variar el volumen de entrada hasta 
hacer que los sonidos alcancen un nivel 
adecuado. 

Una vez hecho esto podemos pasar a 
grabar en la memoria del MUSIC MO- 
DULE cualquier sonido que se capte 
por la entrada del micrófono, con una 
duración máxima de 4.6 segundos, o 
bien grabar 4 sonidos diferentes de 
hasta 1.15 segundos de duración. 

Pese a ser poco tiempo, es suficiente 
para poder almacenar los más intere- 
santes efectos especiales, sonidos, fra- 
ses cortas (una o dos palabras por se- 
gundo). 

Una vez dieitalizados podemos va- 
riar el tono de los efectos especiales 
(más agudos o más graves) y podemos 
utilizarlos, a partir de este momento, 
como uno más de los instrumentos uti- 
lizados en el MUSIC MODULE. De 
esta forma, en el momento en que lo 
deseemos, y con sólo pulsar una tecla, 
podremos hacer que se introduzca en 
la melodía el ruido de cristales rotos, 
un ladrido, o una palabra a la cual pre- 
viamente hemos podido variar de tono. 

Una de las facetas más interesantes 
de este menú es esta última que acaba- 
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MUSIC MODULE, 



SINTETIZA DOR 1 
SINTETIZADOR 2 
SINTETIZA DOR LEAD 
SINTETIZADOR SWEEP 
SINTETTZADOR BAJOS 
! MI MIIOSO 

-wayout- 

SONIDO SIMPATICO 
AJENO 
CAMPANA 
CAMPANILLA 
RUIDOSO 
SPACEBELL 
PUNKSTRINC 
SITAR 



GUITARRA EJ 




COBRES CON S< 
ARCOS 
CUERDAS PUNTEADAS 
VIOUN 
SAXOFON 
CLARINETE 
FLAUTA TRAVESERA 
OCTAVIN 
FLAUTA 
OBOE 
FAGOT 
ARMONICA 
GAITA 
PIANO 

PIANO ELECTRICO I 
PIANO ELECTRICO 2 
PIANO JUGUETE 
CLAVICORDIO 
CELESTA 
ACORDEON 
ORGANO DE CANONES 
ORGANO ELECTRICO 1 
ORGANO ELECTRICO 2 



COUNTRY 

WALTZ 

EURORAP 

ROCK'nKOLL 

REGGAE 

scornsH 

ARABIA N 

INDIAS 

LATIN 



XILOFONO 
VIBRAFONO 

SEEL DRUMS (TAMBOR DE 

HOJALATA) 

COBRES 

TROMPA 

TROMBON 

CUERNO 

TUBA 

COBRES CON WAH WAH 



( l.ASSH Al 

FUNKY 

SWING 

ORIENTAL 

MARCH 



AUDIO SAMPLE TAPE 
LADO I 

SONIDOS NO MUSICALES 

BOCINA DE COCHE 

LADRIDO CHILLON 

LADRIDO DE PERRO 

MUGIDO 

MUGIDO BREVE 

GANSOS 

ELEFANTE 

TIGRE 

JUNCIA 

AMETRALLADORA 
NEUMATICOS CHIRRIANDO 
ZUMBIDO DEL BOING 
BOTELLA DE CHAMPAÑA 
DESTAPADA 

TC DE BAJO/ONDA 

"■CA 

EBEN" (CAMPANA! 



HIGH STRINGS 
ORCHESTRAL STAB I 
BRASS SUDE DOWN 
BRASSSUDEUP 
GUITARRA ACOUSTICA 
GUITARRA it ROCK 
FUZZ CUITAR 
COROS de GUITARRA 
ELECTRICA I 
COROS DE GUITARRA 
ELECTRICA II 
ACOUSTIC DOUBLE BASS 
CHOIR 



INDIAN SITAR ♦ TABLA RIFF 

MAJESTIC ORGAN 

GONG 

T1MFANI 

Kl ! DRUMS 

SNARE 

BASS DRUMS 

CRASH CYMBAL 

HITHAT 
DOW SYNTH ES IZER 
XIl.OPONO 
SLAP BASS Hl 
SLAP BASS LOW 
PIANO 

PIANO I NOTE BASS 
PIANO} STAB REVERB 
HONKY TONK PIANO 
SAXOPHONE GROWL 
STAB I 



He aquí la lista de instrumentos que pueden ser utilizados diré, 



e con MUSIC MODULE. 



mos de comentar. Gracias a ella pode- 
mos introducir en el MUSIC MODU- 
LE el sonido de un piano, por ejemplo, 
y dado que podemos utilizar este soni- 
do como uno más de los del módulo, 
dispondremos de una síntesis de soni- 
do de piano de un modo sencillo y rápi- 
do. De igual forma podemos sintetizar 
cualquier sonido que deseemos. 

Es por ello muy de agradecer que 
junto al MUSIC MODULE se entre- 
gue una cinta que contiene los sonidos 
de 35 instrumentos diferentes, que po- 
dremos añadir a los que incorpora el 
módulo. Se encuentran grabados en 
esta cinta, de igual forma, una serie de 
efectos especiales: gritos de personas y 
animales, bocinas, frenazos, y toda una 
serie de efectos para nuestras composi- 
ciones musicales. 

Como punto negativo podemos citar 
el queia calidad de la digitalización no 
sea todo lo buena que debiera ser, in- 
cluso si el sonido procede de un equipo 
de alta fidelidad o de un avanzado sin- 
tetizados 

* INTERFAZ MIDI: Gracias a este 
menú podemos comunicar al MUSIC 
MODULE con toda una extensa serie 
de instrumentos musicales. En particu- 
lar todos aquellos que utilicen la tecno- 
logía MIDI. Entre estos podemos citar 
todo tipo de sintetizadores, pianos, ba- 
jos, guitarras y baterías electrónicas. 

El MUSIC MODULE puede con- 
trolar un instrumento polifónico que 
permita 6 sonidos diferentes simultá- 
neamente (en el caso de este banco de 
pruebas un sintetizador polifónico) o 



bien hasta 6 instrumentos monofóni- 
cos. 

Aparte de las opciones conectadas, 
este menú permite conectar o desco- 
nectar la transmisión vía MIDI e indi- 
carle al MUSIC MODULE si se halla o 
no conectado el teclado opcional PHI- 
LIPS para el módulo. Gracias a este te- 
clado podremos realizar con los soni- 
dos del módulo acordes de hasta 9 no- 
tas simultáneas. 

Respecto a las conexiones MIDI de- 
bemos avisar que, si bien el módulo 
cuenta con la entrada MIDI IN, esta no 
es reconocida por el aparato, y sólo tie- 
ne razón de serpor la existencia de la 
toma MIDI THRU, que permite 
"reenviar" a otros instrumentos la se- 
ñal recibida por medio del MIDI IN. 

PARTITURAS CON MUSIC 
MODULE 

Hasta ahora hemos estado hablando 
de los menús situados en la mitad infe- 
rior de la pantalla del MUSIC MODU- 
LE. En la parte superior, en todo mo- 
mento, existe una partitura (con dos 
pentagramas, en clave de sol y de fa) en 
la cual podemos insertar de un modo 
muy sencillo con las teclas del cursor 
todas las notas, silencios, etc., que que- 
remos que compongan nuestra melo- 
día. Gracias a la opción PLAYBACK 
del menú de melodía podemos hacer 
que el módulo interprete la partitura 
que hayamos entrado, 
trado. 

De nuevo citando las limitaciones 
del módulo hemos de decir que en la 



partitura no nos es posible entrar acor- 
des, como tampoco nos es posible ha- 
cerlo desde el teclado del ordenador. 

La operación inversa, es decir, visua- 
lizar la partitura de las notas tocadas 
desde el teclado es también fácilmente 
accesible, ya que se realiza de forma au- 
tomática al grabar una melodía. Des- 
graciadamente no existe ninguna op- 
ción que permita volcar las partituras 
por impresora. 

MANUALES 

Con el MUSIC MODULE se sumi- 
nistran dos manuales. El primero es 
una guía en varios idiomas -incluido el 
Castellano- que inicia a la utilización 
del módulo y de todas sus opciones y 
posibilidades. 

El segundo manual es una introduc- 
ción a la notación musical -también en 
varios idiomas- en la que se incluye la 
explicación de lo que son notas (y sus 
tipos), compases, partituras, claves, 
etc. 

CONCLUSIONES 

El MUSIC MODULE es un exce- 
lente periférico para nuestros MSX. 
Gracias a él TODOS pueden adentrar- 
se en el mundo de la música ya que se 
trata de un aparato con una utilización 
extremadamente sencilla y que no pre- 
cisa de conocimientos musicales. 

Es un aparato que permite una gran 
cantidad de combinaciones gracias a 
sus 20 acompañamientos programa- 
dos, así como con los 60 instrumentos 
de que dispone y a los 4 que podemos 
sintetizar en cualquier momento gra- 
cias al digitalizador de sonido. 

Para los que ya tengan unos ciertos 
conocimientos musicales y dominen al- 
gún instrumento en concreto, el MU- 
SlC MODULE puede ser un aceptable 
sintetizador monofónico si se utiliza el 
teclado de los MSX o polifónico si se 
utiliza el teclado opcional. 

Los acompañamientos son poco re- 
comendables para este tipo ae usua- 
rios, ya aue no se puede variar la se- 
cuencia ae acordes que los componen, 
ni variar su tono. No se adaptan, por 
tanto, a las necesidades musicales de al- 
guien que desee interpretar o compo- 
ner cualquier tema. 

Por último, el MUSIC MODULE, . 
gracias a sus opciones para los efectos 
especiales pueden convertirse en una 
divertida mesa de efectos doméstica 
que permita a los aficionados mezclar 
con sus melodías o discos cualquier 
tipo de efecto de los mencionados. 
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Programáis mmmm Por Josep Laínez S.m 

INSTRUCCIONES Y 
VARIABLES PE CAP. 



Este programa, permite hacer 
cualquier tipo de gráfico, guar- 
darlo en un cassette o recupe- 
rarlo de la misma, o bien, obtener el 
gráfico por la impresora. Se controla el 
cursor con un joystick en el port 1 o 
con las teclas del cursor. Estas son las 
funciones de algunas teclas: (las que he 
programado). 

,: sirve para bórrar punto a 

punto; 

.: sirve para dibujar punto a 

punto; 

HOME: sirve para borrar toda la pan- 
talla. Si se pulsa esta tecla, 
además del efecto ya descri- 
to, el cursor vuelve al centro 
de la pantalla; 

ESC: esta tecla sólo se usa para de- 
terminadas acciones en las 
opciones F-3 y F4; 

F-1: sube o baja el lápiz, depen- 
diendo de como esté el flag 
L. Si L es igual a uno, el lápiz 
estará activado; si es cero se 
desactiva; 

F-2: esta opción sirve para relle- 
nar espacios cerrados. Su 
funcionamiento es idéntico 
al de la instrucción PAINT 
del BASIC; 

F-3: en esta opción puede trazar 
una línea, un cuadrado y/o 
rellenarlo; 

F-4: aquí se permite trazar círcu- 
los o arcos de círculo, esco- 
giendo entre 15 opciones di- 
ferentes; 

F-5: pulsando esta tecla se selec- 
ciona el menú de INPUT/ 
OUTPUT, en el aue Duede 
escoger el modo de almace- 
namiento de la imagen, cinta 
o papel, o si desea cargar un 
dibujo a medio terminar. 

COMO TRAZAR LINEAS 

Ponga en marcha el programa y pul- 
se F-3. 

Lleve el cursor al punto de pantalla 
que desee, con las teclas del cursor o un 
joystick, y pulse "ESC". A continua- 
ción vuelva a pulsar cualquier tecla de 
cursor y aparecerá un segundo cursor. 




Llévelo a donde quiera, y pulse una op- 
ción de entre las siguientes: 
tecla 1 (uno): traza una línea uniendo 
los cursores; 

tecla 2: traza un cuadrado o rectángu- 
lo; 

tecla 3: traza un cuadrado o un rectán- 
gulo, pero lo rellena. 

Después de pulsar una de estas op- 
ciones el cursor auxiliar desaparecerá. 

TRAZADO DE CIRCULOS O 
ARCOS DE CIRCULOS 

Para acceder a esta parte de progra- 
ma pulse F-4. 

Actúe del mismo modo que en el 
caso anterior, pero cuando desee de- 
terminar el punto del cursor auxiliar, 
pulse "ESC". Escoja una de estas op- 
ciones: (ver fotocopia adjunta para es- 
clarecer dudas). 

tecla 1 (uno): traza un arco desde 2/4 
PI hasta 3/4 PI 

tecla 2: traza un arco desde 2/4 PI hasta 
4/4 PI 

tecla 3 : traza un arco desde 2/4 PI hasta 
5/4 PI 

tecla 4: traza un arco desde 2/4 PI hasta 
6/4 PI 

tecla 5 : traza un arco desde 2/4 PI hasta 
7/4 PI 

tecla 6: traza un arco desde 2/4 PI hasta 
2PI 

tecla 7: traza un arco desde 2/4 PI hasta 
PI/4 

tecla 8: traza un arco desde 2/4 PI hasta 
6/4 PI 

tecla 9: traza un círculo completo 
tecla 0 (cero): traza un arco desde 4/4 
PI hasta 2 PI 

tecla ! : traza un arco desde 2PI hasta 4/ 
4PI 



tecla arroba: traza un arco desde PI/4 
hasta 5/4 PI 

tecla sostenido: traza un arco desde 5/4 
PI hasta PI/4 

tecla $: traza un arco desde 3/4 PI hasta 
7/4 PI 

tecla %: traza un arco desde 7/4 PI 
hasta 3/4 PI 

El radio será la distancia entre el cur- 
sor y el cursor auxiliar. 

RECUPERANDO Y 
GUARDANDO DATOS 

Pulse F-5. 

A continuación, si desea grabar una 

Cantalla, inserte un cassette en la gra- 
adora y pulse REC&PLAY. 
Si lo aue desea es recuperar una pan- 
talla pulse PLAY, cuando el cassette 
que contenga el fichero esté en la gra- 
badora. 

Si quiere obtener el gráfico en papel, 
prepare la impresora. 

Después de hacer estas operaciones, 
según lo que quiera hacer, pulse una 
opción: 

tecla 1 (uno): salida del gráfico por la 

impresora. La rutina utilizada es la 

COPY-LPRINT de Rubén Jiménez, 

aparecida en MSX EXTRA. 

tecla 2: con esta opción podrá grabar la 

pantalla 

tecla 3 : con esta opción podrá recupe- 
rar una pantalla, grabada previamente. 
Las rutinas grabación/lectura apare- 
cieron en la revista MSX EXTRA, en la 
sección CALL. 

POSIBLES AMPLIACIONES 

La mejor ampliación se puede hacer 
en la rutina de INPUT/OUTPUT, 
añadiendo las opciones necesarias para 
recuperar o guardar datos en un dis- 
quete. 

Otra buena mejora sería poner en un 
lado de pantalla, unos marcadores que 
indicaran el radio cuando se hacen cír- 
culos, y las coordenadas del cursor en 
todo momento. Se podrían hacer estas 
mejoras, a costa de menor velocidad de 
ejecución del programa, y menor su- 
perficie de dibujo en la pantalla. 
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Graphics editor 



UN PROGRAMA 
INTERACTIVO 
PARA EL MSX 



Marcel lí Miret (ZAP STUDI). 



Por fín un programa que 
compatibiliza las presta- 
ciones interactivas del 
MSX2. En este artículo 
os resumimos el menú 
del programa y os indi- 
camos la mejor forma de 
utilizarlo. 



EL MSX 2 o la revolución 
interactiva del ordenador 

Hace un año aproximadamente 
que aparecieron los primeros 
MSX2 en el mercado. Al igual 
que sus equivalentes de otras marcas 
(Atari, Commodore, Amstrad, etc..) 
antes fue el hardware que el software, 
provocando que hasta la actualidad el 
uso de estos ordenadores sea limitado, 
debido a la falta de información sobre 
su manejo. 

ción y Superposición 



Sin embargo el MSX2 nos ofrece la 
posibilidad instantánea de su utiliza- 
ción, gracias a su buen soporte y com- 
patibilidad de sus componentes. El 
gran problema de los ordenadores al 
querer pasar las imágenes producidas 
en ellos a vídeo, es la incompatibilidad 
entre los diferentes tipos de señal, que 
motiva que la imagen de ordenador no 
sea bien recogida por la cinta de vídeo. 
Todo esto se traduce en sacudidas de 
imagen, falta de definición, pérdida de 
color, aparición de extrañas barras, 
etc. Esta compatibilidad también se ha 
de tener en cuenta cuando queremos 
que el ordenador "vea" la imagen ví- 
deo y actúe sobre ella pudiendo sinteti- 
zarla y hacerla "entendible" por la me- 
moria del ordenador. Todas estas ope- 
raciones son cubiertas fácilmente por 
el MSX2, el cual está preparado, ade- 
más de para el diseño o la generación 
de caracteres, también para la digitali- 
zación y superposición de imagen ví- 
deo. 

El MSX2 puede tratar la imagen sin 
necesidad de ningún software. En su 
BASIC contamos con la sentencia SET 
VIDEO, la cual nos permite según le 
indiquemos, las operaciones de super- 
posición, digitalización y la generación 
de sincronías. 

Para que estas sincronías ordena- 




Diseño por ordenador M. Miret. ZAP STUDI Videografía. 
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dor-videotape se produzcan, el MSX 
cuenta con un interface especial llama- 
do comercialmente VIDEOTIZER. 
Este aparato se emplea, sobre todo, 
para generar sincronías entre los peri- 
féricos conectados en sus entradas o sa- 
lidas de señal. En el medio vídeo, el 
aparato que crea las sincronías es lla- 
mado GENLOCKER, normalmente 
las cámaras de videograbación están 
dotadas con estos generadores de sin- 
cronías. 

Si no se dispone del VIDEOTIZER, 
algunos standars permiten la recepción 
de imagen vídeo a través de una entra- 
da de RF (Radio Frecuencia), pero no 
vamos a tratar aquí la manera efe traba- 
jar el MSX2 en BASIC, sino a través del 
programa Grafic Editor, que pasamos 
a analizar seguidamente. 

Carga del programa 

La operación de carga del Graphics 
Editor, es bien sencilla. Sólo es necesa- 
rio conectar el ordenador con el pro- 
grama ya introducido en la disquetera, 
y el programa se empieza a cargar in- 
mediatamente. En caso de tener el or- 
denador ocupado con otro programa, 
sólo hemos de introducir el diskette 
con el Graphics Editor en la disquetera 
y presionar el Reset, el ordenador car- 
gará el programa. 

Configuración del menú 

En unos momentos aparece el menú. 
El menú pone a la vista el medio para 
conectar con todas las órdenes y posi- 
bilidades que ofrece el programa. Ve- 
mos que este se nos presenta mediante 
varias secciones diferenciadas por pe- 
queños dibujos que indican la presta- 
ción que podemos utilizar. Tal como se 
nos ha presentado el menú, vemos que 
dispone de varios tipos de lápices, va- 
rios tipos de curvas y formas geométri- 
cas, y otras posibilidades. Antes de in- 
troducirnos por completo en la des- 
cripción del menú, veamos un momen- 



to la manera en la que podemos trans- 
mitir las órdenes al menú por las cuales 
elegimos las diferentes alternativas del 
programa. 
Ver figura 1 . 

La esfera, un periférico 
necesario 

Igual que dominamos la dirección 
de un sprite mediante un joystick tam- 
bién podemos dirigir el cursor en las 
direcciones elegidas. Para controlar el 
cursor del Graphics Editor podemos 
usar una esfera que nos permite ir a la 
parte de pantalla que deseamos k> más 
rápidamente, intentando conservar el 
tacto de la mano y transmitirlo a la pan- 
talla del ordenador. También podemos 
controlar el cursor del Graphics Editor 
usando el teclado, las teclas Fl, F2, F3 
y las teclas del direccionamiento del 
cursor, pero perdemos velocidad en el 
manejo del cursor, al mismo tiempo 
que se pierde "sensibilidad" cuando se 
realiza un dibujo. 

Para transmitir órdenes con la esfe- 
ra, se usan las teclas que la acompañan. 
Según los colores de las teclas permiten 
una operación diferente: 

Tecla roja: ejecuta las órdenes. Al 
presionar el botón rojo sobre el menú, 
elegimos opción. Al presionar el botón 
rojo sobre la pantalla ponemos en mar- 
cha la opción elegida. 

Ejemplo: Situamos el cursor sobre el 
lápiz que indica líneas rectas, presiona- 
mos la tecla roja. Acto seguido, el menú 
desaparece, el cursor cambia su forma 
de flecha por la de una especie de pun- 
to de mira. Trasladamos dicho punto 
de mira a la parte de pantalla donde se 
desea empezar el diseño. Se presiona la 
tecla roja. Seguidamente se dibuja una 
línea. Movemos el cursor hasta el si- 
guiente punto, si se quiere trazar nue- 
vamente una línea se presiona la tecla 
roja. 

Tecla amarilla: Anula o suspende ór- 
denes, llama al menú. 

Ejemplo: Seguimos el ejemplo ante- 
rior. Nos encontramos con que esta- 




¡¡YA ESTA AQUI! 



NO ES UN JUEGO DE "MARCIANOS 
NO ES UN JUEGO DE AVENTURA 
NO ES UN PROGRAMA DE UTILIDA 

Es... ¡¡LOTO!! 




El programa que puede hacerte 

millonario 
i ¡El complemento ideal a nuestro 
programa de quinielas, de probados 

resultados!! 
¡La manera más barata de hacer máí 
combinaciones! 



Y TAN SOLO 



POR 800 PTAS. 



Pídelo hoy mismo, 
mañana será tarde 

Nombre y Apellidos: ... 



Población: 

Provincia: 

□ Deseo recibir: 



. CP. 



El importe de mi pedido lo hago efec- 
tivo mediante: 

□ Cheque adjunto a nombre de: 
MANHATTAN TRANSFER, S A. 
C/RocayBatlle, 10-12, bajos. 
08023 Barcelona 



Graphics editor 



mos haciendo rectas, estabilizándolas 
al presionar el botón rojo, y eligiendo la 
situación de las nuevas líneas al cam- 
biar el cursor de situación. Pero ahora 
ya estamos cansados de tanta recta y 
queremos cambiar de opción. Primero 
presionamos el botón amarillo para de- 
jar de dibujar, lo volvemos a presionar 
y aparece el menú. Ahora podemos 
cambiar de opción. Situamos el cursor 
sobre la opción deseada por ejemplo: 
lápiz libre, volvemos a presionar el bo- 
tón rojo para elegir opción y volver al 
dibujo. 

Tecla blanca: Normalmente sólo sir- 
ve para acceder a la paleta de colores 
una vez elegida la opción. 

Ejemplo: Estamos en la pantalla de 
dibujo con la opción de dibujo de lápiz 
libre hemos dibujado un poco, pero 
ahora queremos cambiar de color la 
tinta del lápiz. Podemos hacerlo vol- 
viendo al menú y pidiendo el color en 
la sección de paleta de colores, pero 
después nuevamente nos veremos obli- 
gacfos a señalar la opción deseada. Para 
ahorrarnos esos pasos, podemos acce- 
der directamente a la paleta de colores 
presionando la tecla blanca: aparece la 



paleta, elegimos el color presionando 
el botón rojo, presionamos la tecla 
amarilla, y volvemos a la pantalla del 
dibujo donde podemos seguir realizan- 
do la imagen en proyecto. 

Elementos que configuran el 
menú 

Tal como se nos presenta el menú al 
carga'r el programa podemos distinguir 
varias partes. A la izquierda tenemos: 

Paleta de colores. 

Vuelta al paso anterior. 

Opción de tramas. 

Opción tipo de punto a utilizar para 
el trazo de líneas. 

Anulación del menú y del cursor, 
para ver el dibujo totalmente sin impe- 
dimentos. 

Lápiz volcado, a través de él se acce- 
de a la opción SET que incide sobre los 
elementos de la parte derecha del 
menú. 

En el centro del menú nos encontra- 
mos con tres apartados diferentes, ac- 
cedemos a cualquiera de ellos apretan- 
do la tecla roja sobre el dibujo corres- 
pondiente, de esta manera entramos en 



tres tipos de apartados: 

El simbolizado por el lápiz: elemen- 
tos de diseño. 

El simbolizado por la tarjeta perfo- 
rada: elementos de memoria. 

El simbolizado por unas tijeras: ele- 
mentos del tratamiento de imagen. 

Elementos de diseño 

Dentro de los elementos de diseño, 



Dos secuencias de una aminación. 
M. Miret Videógrafo. ZAPSTUDI. 
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¡¡EL "NO VA MAS" DE 
LAS VIDEOVE NTURASü 



nos encontramos los siguientes compo- 
nentes: 

LápÍ2 libre: nos permite trazar líneas 
al tiempo que movemos el cursor. 

Escoger color de tinta de la pantalla: 
A través de esta orden podemos esco- 
ger un color situando el cursor sobre el 
color elegido. 

Líneas rectas: Traza líneas rectas si- 
guiendo las coordenadas del cursor. 

Borrar (Goma de borrar): Borra en 
color blanco, o color elegido. 

Spray: Pinta conforme lo hace un 
spray, difuminando los puntos de co- 
lor. 

Perímetro de un cuadrado: Pinta pe- 
rímetros o siluetas de. cuadrados. 

Cuadrado por zonas: Pinta un cua- 
drado y toda su superficie con el color 
elegido. 

Circunferencias o arcos de circunfe- 
rencia: Traza circunferencias o arcos. 

Texto: A través del teclado, utilizan- 
do dicha orden, podemos escribir los 
textos que necesitemos. 

Pincel: Llena de color zonas de color 
o superficies. 

Elementos de la memoria 

Con la ayuda de este apartado pone- 
mos en funcionamiento órdenes rela- 
cionadas con el uso de la memoria: 

Borrar pantalla: Borra totalmente 
todo lo diseñado en la pantalla del or- 
denador. 

Basura (extraer): Extrae de la me- 
moria un dibujo introducido previa- 
mente en esta función. 

Basura (introducir): Introduce o 
guarda en la memoria una zona de pan- 
talla seleccionada mediante esta orden. 

Copia de dibujos borrando el origi- 
nal: Copia un área de un dibujo selec- 
cionado, permite "llevarlo" a otro lu- 
gar de la pantalla. Al "fijar" el diseño 
en su nuevo lugar, "desaparece" el di- 
seño original. 

Copia dibujos respetando el origi- 
nal: Se pueden hacer copias múltiples 
del dibujo original sin que "desaparez- 
ca" o se borre el diseño original. 

LOAD: Lee los diseños realizados 
con el Graphics editor almacenados en 
diskettes. 

SAVE: Graba los dibujos realizados 
con el Graphics Editor en diskettes 
previamente formateados. 

Diskette: Gracias a esta orden pode- 
mos formatear los diskettes que tengan 
que ser usados en el Graphics editor. 
También accedemos a la orden "dele- 
te" 
los 
var, 

Flecha girada: Nos permite cambiar 
la orientación de un diseño. 



Flecha volcada: Invierte la orienta 
ción de un diseño, poniéndolo "boai 
abajo". 

PRINT: Gracias a esta orden acce 
demos a la impresora, que nos imprime 
el dibujo que tenemos en pantalla. 



Elementos del tratamiento de 
imagen 

Pantalla tachada: Borra el dibujo 
que tenemos en imagen. 

Flecha girada: Nos permite girar un 
diseño en el ángulo deseado. 

Cámara fotográfica: Accionando 
esta orden podemos poner en funcio 
namiento la interactividad del MSX2 
consiguiendo digital imagen prove- 
niente de RF, RGB, o compact dise 
También se puede superponer imagen 
del ordenador, sobre imagen vídeo 
(Esta orden actúa preferentemente 
cuando se tiene conectado un VIDE( ) 
TIZER). 

Mosaico: Con esta orden podemos 
cambiar el tamaño de los puntos cua 
drados que componen un diseño. Los 
podemos hacer más grandes o más pe- 
queños. 

Arbol: El árbol nos permite hace-i 
"el perfil" sobre un dibujo o área ele^i 
da. 

Flecha gruesa: Hace negativo sobn 
un área elegida, cambiando todos lt*> 
colores por su inverso. 

Traslado de colores: Cambia el coló: 
de un área porotro previamente ele^i 
do. 

Ampliación y reducción: Amplía \ 
reduce zonas señaladas a través del 
área. 




Conclusión 

Hasta aquí hemos visto la forma tk? 
introducirnos en el Graphics Edito! 
Nos ha quedado claro el manejo ele! 
cursor a través de los joysticks, la esfe-i i 
y el teclado. Hemos estudiado el menú 
orden por orden, pero aún nos queil 
mucho, dejamos para un próximo e a 
pítulo el estudio de la orden SET, qu< 
nos permitirá acceder a la memoria di 
algunas órdenes y el poder modificar 
las o seleccionar su modo de actuación 
Después, ya sabido el manejo del 
menú, plantearemos las conexiones del 
ordenador con otros periféricos, y por 
último pondremos unos ejemplos 
prácticos para dibujar con soltura y ra 
pidez usando el Graphics Editor. 

NOTA: Todas las experiencias aquí 
expuestas han sido realizadas con e l 
Hardware HB-6900P, y el vídeo Ima^e 
Interface HBI-6900P de Sony. 



Conviértete en el 
mago que debe destruir 
el hechizo del castillo 
diabólico por sólo 800 
ptas., (las mejor em- 
pleadas de este verano). 

Una apasionante vi- 
deojuego que une a sus 
excelentes gráficos esos 
elementos de acción e 
intriga que hacen impo- 
sible "despegarse" de la 
pantalla del monitor. 
¡¡Pídelo antes de que se 
agote!! 



Nombre y Apellidos: 



Dirección: 



Población: 
Provincia: 

□ 



.. CP. 



El importe de mi pedido lo hago efec- 
tivo mediante: 

□ Cheque adjunto a nombre de: 
MANHATTAN TRANSFER, S A. 
C/Rocay Batlle, 10-12, bajos. 
08023 Barcelona 



CAMELOT WARRIORS, 
NUEVO VIDEOJUECO DE 
DINAMIC 

Presentado por Microdigital 

Microdigital Soft, acaba de lan- 
zar un nuevo título: Camelot 
Warriors. Editado en forma- 
to cassette, el videojuego contempla 
una increíble situación: En el mundo 
de Camelot, han entrado 4 elementos 
del siglo XX. Estos son: "La voz de 
otro mundo", "El espejo de la sabidu- 
ría", "El elixir de la vida" y "El fuego 
que no quema". Un viaje sin retorno a 
través de mundos pasados y futuros. El 
juego transcurre en cuatro escenarios 
distintos: En primer lugar, el bosque, 
escenario natural en el que nos esperan 
numerosos enemigos. El lago, en el que 
medusas, peces asesinos y un terrorifí- 
cio ambiente, nos provocarán un shock 
mental. Las grutas: sumergido bajo tie- 
rra y con grandes dificultades para res- 
pirar, deberás buscar una salida. El 
castillo de Camelot: si logras entrar, 
descubrirás la clave de tanto misterio. 
Los personajes que aparecen en el jue- 
go son: Aznath, el druida del bosque, 
Rindo, hermano de Neptuno y rey del 



lago, Azornic, el poderoso dragón rey 
de las grutas y Arturo, rey de Camelot. 



Impresoras Amstrad 

Los tres nuevos modelos de im- 
presoras lanzadas por Amstrad 
al mercado, se caracterizan por 
su excelente relación calidad/precio. 
El modelo más económico es el DMP 
2000, una impresora potente, cómoda 
y que cubre perfectamente las necesi- 
dades de cualquier ordenador domés- 
tico. Con una impresión de hasta 150 
caracteres por segundo y un juego de 
caracteres ASC ü, su precio es de tan 
sólo 39.500 + IVA. Ligeramente supe- 
rior se demuestra el modelo DMP 
3000. Con un precio en la calle de 
49.900 pesetas + IVA, combina a la 
perfección la versatilidad de un con- 
junto de códigos de control standard, 
con la experiencia de Amstrad en el di- 
seño y fabricación de equipos de alta 
calidad y bajo precio. Sus característi- 
cas más relevantes son su carga frontal 
de papel, el bajo nivel de ruido, y la 
compatibilidad de sus códigos de con- 
trol con Epson. La hermana mayor de 
la gama, es el modelo DPM 4000. Pue- 
de manejar papel de 15 1/2 pulgadas, 
posee una elevada velocidad de impre- 
sión: hasta 200 caracteres por segundo, 
bajo consumo, posibilidad de utiliza- 
ción con fricción o tracción y juego de 
caracteres gráficos en IBM. Precio: 
89.900 más IVA. 



HOMICIDIO EN EL 
ATLANTICO: u S0FT" DE 
LUJO 



Distribuido por 
Infogrames/Sony 



Infogrames/Sony, acaba de poner 
en circulación Homicidio en el 
el Adámico, un vídeo-juego en for- 
mato cassette y disco, del que, además 
de sus excelentes capacidades recreati- 
vas, grafismo y contenido, hay que des- 
tacar su gran presentación. En efecto, 
la cinta o disco está contenida en una 
magnífica carpeta de tela con acabados 



en verde. Al tratarse de un juego de in- 
vestigación detectivesca, se incluyen 
toda una serie de documentos, cartas e 
impresos para facilitar la tarea. Todo 
cuidado al detalle. Asimismo, el ma- 
nual de explicaciones que acompaña al 
conjunto es de lo más completo. A 




SECUNDA UNIDAD DE 
DISCO PARA ORDENADOR 
SVI-738 

Lanzamiento de Spectravídeo 

La unidad de Disco presentada 
por Spectravídeo, es un sistema 
lector de discos de 3,5 pulgadas 
y 720 KBytes de capacidad una vez for- 
mateado. Su diseño, está especialmen- 
te concebido para incorporarse como 
segunda unidad del ordenador SVI- 
738. Una característica remarcable, es 
que el controlador y la alimentación se 
encuentran en el ordenador, con lo 
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cual el tamaño y el cableado quedan 
muy reducidos. Al igual que otras uni- 
dades de disco Spectravídeo, está pre- 
parada para utilizar los Sistemas Ope- 
rativos MSX-DOS y CP/M. Conecta- 
da como segunda unidad de disco al 
ordenador SVI-738, le confiere una 
mayor capacidad de almacenamiento, 
necesaria en ciertas aplicaciones de 
gestión. 




ACUERDO IDEALOGIC-SVI 

Idealogic y SVI han firmado un im- 
portante acuerdo mediante el cual 
la primera va a suministrar el pro- 
grama Perry Masón para incorporar a 
su nuevo ordenador XPRES 16, como 
Software de dotación suministrándolo 
junto con cada ordenador. Asimismo, 
SVI ha adauirido otros programas de 
la serie Telarium para su XPRES 16 
que convertidos a este ordenador, ad- 
quieren características especiales al au- 
nar la capacidad del PC MS-DOS a la 
potencia gráfica de los MSX2, con lo 
que tenemos unos programas de unos 
gráficos y presentación muy importan- 
tes. 



SERMA: INTERESANTE 
OFERTA EN EL CORTE 
INGLES 



Promoción de los cartuchos 
Konami 



A través de los quioscos que Ser- 
ma ha instalado en los centros 
comerciales de la cadena «El 
Corte Inglés», se ofrece una interesante 
oferta en forma de regalos. El procedi- 



miento es muy simple: por cada com- 
pra efectuada, te entregan un cupón. 
Reuniendo dos cupones, tienes dere- 
cho a un bolígrafo llavero; con cuatro, 
el regalo es una pluma de neón, un reloj 
de cristal de cuarzo por seis cupones... 
y un jovstick Konix por la entrega de 
ocho. Animaos a hacer vuestras com- 
pras veraniegas, el plazo se cierra el 
cuatro de julio. 




PROYECTOS DE 
PERIFERICOS PARA 
AMSTRAD Y MSX 

^ Quién no ha sentido la tentación 
^ de ampliar las posibilidades de su 
^ ordenador construyendo ingenio- 
sos periféricos con los que poder medir 
la velocidad y dirección del viento, sa- 
ber la temperatura ambiental o dispo- 
ner de un digitalizador de imágenes? 

Pues bien, los usuarios de MSX es- 
tán de suerte, ya que en este libro en* 
contrarán la manera sencilla de cons- 
truir algunos de esos ingenios. 

Lo más asombroso es la escasez de 
cableado, usándose principalmente 
circuitos integrados y unos pocos tran- 
sistores. Esto lo convierte en un libro 
útil hasta para principiantes. 

A cada ingenio le acompaña un sen- 
cillo programa que podrá ser sofistica- 
do según la pericia del usuario. 

Tanto los circuitos como los progra- 
mas han sido probados en el modelo 
CPC 464 de Amstrad. Por parte de los 
MSX ha sido probados en un Thoshiba 
HX-10, que es compatible con todos 
los ordenadores que se ciñan a las nor- 
mas de MSX. 




Proyectos de 
periféricos para 




En el libro se desarrollan los siguien- 
tes periféricos: 

- FUENTES DE ALIMENTACION 

- DIGITALIZADOR DE DIBUJO 

- TECLADO REDUCIDO 

- CONTROLADOR DE 
MAQUETAS 

- PITADOR 

- CONTROLADOR DE 
INTERMITENTES 

- CONTROLADOR ANALOGICO 
DE MODELOS 

- .... Y 11 periféricos más. 

Este útilísimo libro ha sido editado 
por. ANA YA MULTIMEDIA, en el 
marco de su nueva y práctica colección 
"Mícromanuales". 

Atención al precio que es muy inte- 
resante, sólo 636 ptas. Un precio redu- 
cido para una obra completa y amena. 

Vidal Barbero Valladares 



AVISO IMPORTANTE 



Debido a un lamentable error, 
en el anuncio del programa LOTO 
aparecido en el número doble de 
MSX-EXTRA (32-33) se indicaba 
que se remitieran los talones a 
nombre de MSX CLUB DE CAS- 
SETTES. 

LOS TALONES DEBEN EN- 
VIARSE A NOMBRE DE MAN- 
HATTAN TRANSFER, S.A. 

Al igual que en el caso de cual- 
quier otro programa perteneciente 
al MSX Club de Cassettes. 

Rogamos disculpen las moles- 
tias que este error pudiera haber 
ocasionado. 
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t&tmcito te caracteres 



muimos 'con ficheros* 
Wso aleatorio 



Wentowical 
Climas 



ES3 ES EL ORDENADOR FAMILIAR N.° 1 

CSa ES LA FAMILIA MAS IMPORTANTE 

DE MICROORDENADORES m 

LOS USUARIOS DE ES3 llf r ~~^«^i l 

FORMAN UNA GRAN F™™ M «8a£M 
FAMILIA pggsgggi 

¡¡NO TE OLVIDES DE BSSTU * 
NUESTRA FAMILIA!! B -jfcV 
YA ESTA EN LA CALLE ELg|§M§ 
NUMERO DOBLE W^Wám 
DE VERANO fS^^ft 
DE NUESTRA REVISTA SS? 
HERMANA ES3 EXTRA w ~ 

fir? ese número doble te encontrarás con: 

- MSX-Segunda generación 
(La sección de los usuarios de MSX-2) 

- Redefinición de caracteres en SCREEN2 

- Todo sobre los robots 

- Tratamiento de ficheros 

- Y un montón de programas 



¡¡¡CORRE A BUSCARLO!!! 
YA ESTA EN TU QUIOSCO 



PLUSDATA ESPECIALISTAS EN PROGRAMAS EDUCATIVOS 



25 2 



tn 5 

3 I 



THE GRUNEBERG LINKWORD 
LANGUAGE SYSTEM 

plu/doto 





MSX 


P.V.P.con I.V.A. 


Soporte 


Curso Inglés 1 


3.900,- 


Disco 3 1/2" y cassette 


Curso Inglés II 


6.900- 


Disco 3 1/2" 


Curso Inglés 1+ II 


9.490- 




Curso Basic 1 


5.900- 


Disco 3 1/2" y cassette 


Curso Basic II 


5.900- 


Disco 3 1/2" y cassette 


Curso Basic 1+ II 


9.900- 




Programa Contabilidad General 


6.900- 


Disco 3 1/2" 


Programas Educativos 




Disco 3 1 /2" y cassette 



3 rogramas Educativos, P.V.P. 2.500 pts. 



PL1016 Artículo 

PL003 L'Article 

PL1020 Juego con sílabas 

PL1023 Ordenar Frases 
PL1009 Vocabulario 5 

PL1 01 4 Verbos ser, haber, estar 

PL1011 Verbos 2 (Irregulares) 



PL1004 Tres en raya 

PL1 01 0 Análisis morfológico 2 

PL1006 Vocabulario? 

PL0022 El reloj 

PL3006 España política 

PL2002 Comarcas de Catalunya 

PL3001 Geografía de Europa 



PL0020 Contar 

PL0024 Restar-Contar 

PL0029 Cálculo serie 

PL0038 El mono y el árbol 

PL0006 Tabla de multiplicar 

PL0004 Cálculo inicial 

PL0046 Problemas cálculo mental 

PL0001 Divisiones 

PL0002 Cálculo mental 



NOVEDADES: Inglés II, la 
esperada continuación del 
curso de inglés Plusdata, 
Basic l+ll, Contabilidad, 
Programas Educativos. 

INSTALAMOS 
AULAS 
INFORMATICAS 
EN ESCUELAS 



PL0005 Sistema métrico d 
PL0003 Fracciones 2 
PL0015 Sistema de ecuaciones 



Población 

D.P 

Forma de pago: 



Reembolso □ 



. Tino 

Giro postal □ 



Envío talón □ 



PROGRAMA 


PRECIO 


FORMATO (disco o cassette) 



























ENVIAR ESTE CUPON A: PLUS DATA, S.A. C/. GRAN VIA, 661 pral. 08010 Barcelona. Tel. 246 02 02 



